


P Fs. 2 -y ==- — Led 
corre MET MERETUR 
m k m=. 








cee sl c = |] Ma al | Cenaa | 
TM ELEC — Hore 
حو‎ a - الاح‎ 1 a ÛC هك‎ 

















لاه عه ga Shaws‏ 8358 هات تح نات 
an E ar c — |‏ 
oot = ant CC se Ss SES =‏ احج Åe shta‏ — 
H F‏ ق = = att = Sr‏ 
E PaE ——»rw FF 3‏ — 

I» -apb == 

CE [p 4x F STIG 

— E ecce aa 5 Cra > ee eel J~ جوع‎ 4 srs 
TU. ma — iore — — —-m- 449394 Á B. —. 









ام برنامج TLAB‏ 
الرياضيات الجا 































عل 















WM y 
=| e 
5, E 
^n Q 






N 








E 
P ANTT T Eo 
£s 0 


RY 









MATLAB Q« li ji استخدام‎ 
الا مته‎ eiua dl (5 


د. عبار حميدي الحربي 
الأستاذ المشارك بقسم الرياضيات - كلية العلوم 
جامعة الملك سعود 


النشر العلمص والمطابع - جا معة الملك سعود 
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فهرسة مكتبة ا للك فهد الوطنية أثناء petal‏ 


استخدام برنامج MATLAB‏ في الرياضيات الجامعية . / عبير حميدي الحربي . 
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حكمت هذا الكتاب Xd‏ متخصصة» شكلها المجلس العلمى بالجامعة» وقد وافق 
|« | ظ على uem‏ - بعل إطلاعه على تقارير المحكمين- t‏ اجتماعه الثانى للعام الدراسى 
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Aa‏ وك 

الحمد لله رب العالمين والصلاة والسلام على رسوله الكريم محمد صلى الله عليه وعلى 
آله وصحبه وسلم وبعد : 

إن علم الرياضيات أسهم بشكل واسع في تطور العلوم كافة» By‏ بعض مجالات 

الحياة المختلفة. والرياضيات ليست فقط أداة تنمي Sal‏ وتطوره» بل هي علم مهم 

وأساسي في التخصصات العلمية والإدارية» لذلك ظهرت OLS y‏ تستخدم الحاسب 








الآلي لتوفر الوقت وسرعة HAM‏ والدقة في إجراء العمليات الحسابية» والقدرة على 
التعامل مع كم من ULSI‏ وف مقدمة هذه OLE E‏ برتائع «MATLAB.‏ الذي کن 
المختص في العلوم من تطوير مهاراته من خلال عدد هائل من الأمثلة و المسائل بسرعة 
متناهية Boy‏ عالية. كما أنه يوفر حلولا رياضية للعاملين في مشاريع علمية وهندسية › 
بقدرات فائقة وإمكانات للنمذجة والمحاكاة. 

ea JE eye glad cad | das GES La cao le Case ull‏ وال مه 
التخصصات العلمية المختلفة لمرجع باللغة العربية يشرح أساسيات استخدام 
MATLAB‏ في المواضيع الرياضية المختلفة ؛ abd‏ يشكل إضافة علمية للمكتبة العربية› 
وخطوة متقدمة نحو تطوير صيغ التعليم التقليدي إلى صيغ التعليم الحديث التي Pod‏ 
إمكانات الحاسب الآلي. وهذا الكتاب ليس بديلا لتعلم مفاهيم الرياضيات» إلا أنه 


مكمل ومستخدم لباء فالمفاهيم تعرض بشكل مبسط e‏ ويركزعلى عرض تطبيقاتها 


و مقدمة 


باستخدام الحاسوب» دون اللجوء للحل الرياضي المعتاد. ينقسم الكتاب إلى سبعة 
CU sa‏ في نهاية كل منها siglas yan‏ التى تساعد القارئ على تطبيق الأوامر 
الخديدة. كما le CLES 5 pt‏ العديد شن الأمثلة والخوارزميات» Beng‏ 
القارئ أن يكون على ole all‏ الجبر الخطى والتحليل العددي وأساسيات A SN‏ 

فالفصل الأول يحتوي على مقدمة تعريفية لبرنامح MATLAB‏ وأهم أوامره و 
خصائصه وأساسيات بريجة الخوارزميات البسيطة. أما الفصلان الثاني والثالث فيتضمنان 
مفاهيم من الجبر الخطي كحلول المعادلات الرياضية والأنظمة الخطية وغير الخطية ؛ 
وبالنسبة للفصل الرابع فهو يغطي بعض مواضيع حساب التفاضل والتكامل » Lary‏ يقدم 
الفضل Vole pall‏ عددية للمعادلقات التقاضلية. poled [rad (i lass y‏ للاستكمال 
والتقريب» أما الفصل السابع والأخير فقد خصصته لتقديم مواضيع رياضية متفرقة» مثل 
جبر المتجهات » والطرق المثلى « ودوال الإحصاء وعلم التعمية. 

هذا ولا يفوتني أن أتوجه بالشكر إلى طالبات مقرر مشروع البحث في قسم 
الرياضيات بجامعة الملك سعود» وكذلك زملائي في الجامعة الذين كان لهم دور كبير 
في اختيار المواضيع يع التي طرحت في الكتاب وفي التعديلات التي طرأت على الأمثلة. 
وقي eU‏ آمل أن أكون قد وفقت في تقديم نبذة عن برنامج MATLAB‏ وبعض 
تطبيقاته الرياضية المختلفة» Oly‏ يجد هذا CLS‏ الاستحسان و القبول لدئ القارئ. 
كما La ccs jl‏ راء eL JI JE s‏ ن SHB Me‏ وذلك علي dao SI‏ 
abir()ksu.edu.sa, 5379Y!‏ . 

سائلة الله أن يجعل عملي خالصا لوجهه تعالى» وأن يوفق الجميع لخدمة التقدم 
العلمي من خلال إثراء المكتبة العربية » والله ولي التوفيق. 
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)1,1( مقدمة في MATLAB‏ 

ens MATLAB‏ عالي الأداءء صمم لاجراء الحسايات الرياضية التقدمة؛ 
llla dS. posi‏ سخصصا بسر عمل iie‏ والدارسين في مختلف مجالات 
الدراسات LSI‏ والدراسة الجامعية: ويضم اغات من الدوال الجاهزة التى توفر 
للمبرمج وقتا (igea‏ عند كتابة البرامج MATLAB J sol .z‏ ترجع إلى محاولة الرياضيين 
لتسهيل حساب المصفوفات » ومن هذا المنطلق فان معنى كلمة MATLAB‏ هو معمل 
المصفو Matrix Laboratory wb‏ و قد |a‏ تطويره من قبل شركة t MathWorks‏ عام 
٤م c‏ مع naui C‏ الأول كان على يد العالم Cleve Moler‏ في «e YAV*‏ الذي 
كان يشغل منصب رئيس قسم علوم ا لحاسب في جامعة نيو ميكسيكو بالولايات 
المتحدة الأمريكية. يوجد لبرنامح MATLAB‏ عدة نسخ صدرت على مدى أعوام» 
مثل النسخة 5 MATLAB‏ و6 و 7. نستخدم هنا في عرضنا النسخة السابعة 
MATLAB 7‏ الشكل رقم 13 ee i‏ عو قم قاع أنظمة Windows‏ 
Windows XP :(2000/NT Windows 95/98‏ « كما يو جد إصدار JPU‏ يخص 


« single user التعامل مع مستخدم واحد‎ MATLAB ويمكن ل‎ .Unix » Macintosh 


Y‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


أو أكثر من مستحخدم ٠» Workstation cols)‏ وهو Lis‏ 3 عن حزمة من ols JI‏ 
الحاهزة es. (Toolboxes)‏ عليها المستخدم بحسب الحاجة. 
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الشكل رقم .)١,١(‏ الإصدار السابع من MATLAB‏ 


إن برنامج é = 6 MATLAB‏ وخاصة UU JI Je t‏ بالرسم سواء 

MATLAB‏ لغة متطورة في البرمجة إلا أنه من الممكن للمبرمج المبتدئ التعامل معه 
ببساطة. ويحتوي MATLAB‏ على توابع ودوال جاهزة لتغطية أكثر المسائل eyed‏ 
Sud‏ تتطلب كل من لغة Fortran‏ » © و Pascal‏ عشرات الأسطر لكتابة برنامج 
لإيحاد تحويل فوريير Lavy Fourier Transform‏ لدی MATLAB‏ أمر ضمنى واحد 
(fft)‏ لإنجاز هذه العملية. وكذلك فإن عدم تعريف المتغيرات وحجمها مسبقا من 


مياد برنامج MATLAB‏ ۳ 


المميزات ل MATLAB‏ على باقي لغات البريجة» ولكنه أبطأ لأنه يقوم بترجمة البرنامج 
المصدرى dee‏ جملة interpative language‏ بينما تقوم اللغات Pascal «Fortran‏ و C‏ 
بترجمة البرنامج المصدري SUIS‏ وتحويله إلى لغة الآلة compiled language‏ » لذلك يتم 
تنفيذه بطريقة أسرع. فبرنامج MATLAB‏ يمكن الاستفادة منه بطريقتين» إما للحسابات 
Shy des‏ الجساهدة» de JU ai‏ مع إدراج الدوال الجاهزة لتبسيط و تسريع أداء 
البرامج. 

برنامج 88 يتعلق بالحسابات الرياضية» والبندسية وامحاكاة. ويستخدم 
في الاعات LS Lab‏ يسع ol BW‏ الأقاديية؛ يحرفا راض 
البحث العلمي في الغالبية العظمى من جامعات العالم. والكثير من شركات الطيران 
Sul‏ والعسكري» تستخدم MATLAB‏ في الحسابات البندسية» والنمذجة والحاكاة» 
مثل شركة إيرباص. كما يعتمد عليه في تصميم الطائرات التي تطير بدون (Ub‏ و في 
أبحاث الفضاء لشركة ناسا فى محال معالجة البيانات من قبل الباحثين والمختصين ليتمكن 
الباحث من إجراء مئات التجارب» الأمر الذى يستحيل فعله بطريقة يدوية. وهو OX‏ 
شائع الاستخدام في التدريس خاصة في مواد الجبر الخطي» والتحليل العددي وتطبيقاته 
Alo‏ 

يهدف الكتاب إلى عرض بعض التطبيقات الرياضية على , MATLAB‏ لمستوى 
المقررات الجامعية الأولى» و ذلك لمساعدة طالب العلوم الطبيعية أو البندسة على 
ترسيخ المفاهيم الرياضيةء خاصة التى تعتمد على التحليل العددي والحسابات العددية 
المكثفة. يحتاج القارئ إلى الإلمام بمبادئ i JI‏ البسيطة والطرق الرياضية المختلفة› 
وذلك OY‏ الكتاب يركز في عرضه على كيفية الاستخدام الجيد لبرنامح MATLAB‏ من 
أجل كتابة برامج توضح هذه المفاهيم المختلفة. كما أن الكتاب يوضح طرقا مختلفة 


3 استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


لتسخير MATLAB‏ كالة مساعدة لتوضيح المفهوم الرياضي» بنفس الطريقة التي 
نستخدم فيها الآلة الحاسبة أو الأدوات البندسية في إقناع الطالب بصحة القواعد 
والنتائح. وبعد الاطلاع على الكتاب وأداء colas!‏ أدعو القارئ AA) SLES NU‏ 
قوة MATLAB‏ عن طريق التطبيقات المتخصصة في مجاله. من الصعب ذكر كل دوال 
MATLAB‏ واستخداماتها الرياضية في كتاب واحد» وإنما cle‏ إلى عدة كتب لتغطية 
ذلك» و لو بحث القارئ في أي محرك بحث على الإنترنت عن مفهوم رياضي وتطبيقاته 
باستخدام MATLAB‏ لحصل على عشرات المواقع التي تتحدث عن أمثلة جديدة 
وتطبيقات مبتكرة. يحتوي SLE OLS‏ على التطبيقات الرياضية الأساسية والتي 
نعطى الخطوط العريضة guidelines‏ لقدرات MATLAB‏ وتساعد القارئ على 


it 
kF 


استخدامها وتسخيرها لتطبيقاته المختلفة. 


MATLAB الأوامر الرئيسة فى‎ (NY) 

SLE متكاملة في‎ SER واحدا من أهم البرامج التي تقدم‎ MATLAB “Las 
لباء وهويوفر‎ pee الرياضيات و الاختصاصات المعتمدة عليها والتى لا‎ 
: للمستخدم‎ 

١‏ - التعامل بسهولة مع المصفوفات وحساباتها. 

be lode E‏ مذ الدوال الجاهزة والبرامج المخزنة› وهي في تطوير دائم مع 
كل نسخة جديدة. 

۳- الرسم المتقن في بعدين و BW‏ أيعاد. 

f‏ - القدرة على åg JI‏ للاستفادة من MATLAB‏ فى كافة امجالات العلمية. 


o MATLAB مياد برنامج‎ 


عند فتح برنامج MATLAB‏ تظهر عدة نوافذ dake‏ تظهر في الشكل رقم (Y)‏ 
وهي : 

-١‏ نافذة الأوامر الحالية Command window‏ : وهي النافذة الأساسية التي 
تتخاطب من خلالها مع برنامج MATLAB‏ وهي تشمل JLE Workspace‏ العمل أو 
الذاكرة المؤقتة» حيث يتم فيها حفظ جميع المتغيرات التي استعملت إلى حين إغلاق 


clear ما لم يتم تنفيذ الأمر‎ MATLAB 

-Y‏ نافذة تاريخ الأوامر Command History‏ : و تعرض جميع الأوامر التي 
كتبت 3( JE‏ العمل Workspace‏ الحالى. 

-Y‏ الدليل الحالي Current Directory‏ :و يعرض موقع الملف SA)‏ ل 


. Workspace 


AAA T LAB 
تله شريط القوائم‎ est wow Debus Destop window tei 
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- : 15 
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ecran er | | 
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A=[i 2 3:4 5 6:0 5 7 ] m" MATLAB‏ | تاريخ 
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الشكل رقم Y)‏ ,8( النافذة الأساسية في MATLAB‏ 


4 استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


e‏ الأوامر الخاصة بالنافذة الأساسية 

e‏ يعد الأمر help‏ المستخدم للمساعدة الطريقة الأساسية لمعرفة صيغ الدوال 
وتطبيقاتهاء ويقوم بعرض المعلومات الضرورية مباشرة في نافدة الأوامر» ولاستخدامه 
اكتب الأمر help‏ عند المؤشر << » وبعدها بمسافة اكتب اسم الدالة المطلوبة 
للاستعلام » ثم اضغط زر الإدخال Enter‏ . وسوف MATLAB agi‏ بالرد على هذا 
الاستعلام بشرح بسيط للدالة كما هو موضح في التالي. 


أمر الاستعلام X‏ 


>> help cos 










^ COS Cosine. 
COS(X) is the cosine of the elements of X. 


See also acos, cosd. | 


كذلك تو جد نافذة help‏ المبينة في الشكل رقم (V. V)‏ والتي يتم فتحها من شريط 


. MATLAB في‎ ell 


.command window فى‎ workspace يعرض جميع متغيرات‎ who "vl è 
x ويمكن مسح المتغير‎ workspace Ob se م بمسح جميع‎ sx clear all yl ^ 
.clear a* فقط‎ a خرف‎ lu sl أو مسح اخيرات‎ clear x فقط بالأمر‎ 


V MATLAB نامج‎ FIM 


Ld OR J à 1 | —— MA d ed 
| Fie bit View Go Fearne: Drites Window Help = 


Hard Piy bag a ee X dm = e d ^ 
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الشكل رقم .)١(‏ نافذة المساعدة help‏ 


mi ندخل‎ mywork فى ملف اسمه‎ workspace wh ge كل‎ Las للقيام‎ s 





Save x إذا أردنا حفظ متغير مثل × نکتب‎ LÌ save mywork 

e‏ ولاسترجاع الملف mywork‏ ندخل الأمر load mywork‏ « ولاسترجاع متغير 
load x «SS x‏ . 

٠‏ العلامة ; بعد أي أمر تمنع طباعة النتائج المحسوبة. 

e‏ العلامة % تسبق كل جملة تعليق comment line‏ أي أن MATLAB‏ يتجاهل 
كل ما كتب من أوامر في هذه الجملة. 


e‏ العلامة ... 3 Alo‏ السطر تعنى تابع yaw t ilat l‏ الحديد. 


مثال رقم )١,١(‏ 


ندخل بعض من هذه الأوامر: 


^ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


>> % some examples 
>> PI 
y= 
4 
>> who 
Your variables are: 
X 


X تم تخرين المتغير‎ 
>> save x ut و‎ 


>> load x 


>> clear x pag 


E m مسح المتغير×‎ 


MATLAB الحسابات البسيطة في‎ )١,*( 
Command Line تظهر العلامة << وتسمى‎ MATLAB عند تشغيل برنامح‎ 
MATLAB يتم تنفيذ الأمرء و يظهر رد‎ ENTER ويمكن إدخال أمر بعدهاء وبعد ضغط‎ 


بعد عبارة ans‏ . فمثلا لحساب العبارة الرياضية البسيطة 2+3.55-4)9((/12). 


>> (243.5^-4(9)y12 
ais — _: 


ادحل الامر 1.8125- 


ie MATLAB رد‎ 


وفكرج تعر بف متغيرات cU‏ العبارة : 

>> x=24+3.5°2 
x= 

14,2500 
>> y-4*9 
p= 

36 
>> (x-y)/I2 

ans = 

-1.8125 


a MATLAB مياد برنامجح‎ 


يتعامل MATLAB‏ مع جميع المتغيرات كمصفوفات» ويجب أن يكون اسم 
لمتكي متكونا من كلمة واحدة لا يفصل بينها مسافة: فمثلا : my lg myvariable‏ 
Yl» «variable‏ يتعدى .c3 44 ls 5 Pea‏ عر MATLAB‏ بين المروف الصخيرة 
small case‏ والكبيرة sl capitals‏ أن المتغير A‏ يختلف عن المتغيرة. ويجب مراعاة عدم 
استخدام المتغيرات الخاصة ببرنامجح MATLAB‏ مثل : 


ans‏ : متغير يرمز للنتائج 
pl‏ : القيمة 9( 


:NaN‏ رقم غير مقبول 
inf‏ : مالا نهاية 


تتم العمليات الحسابية باستخدام الإشارات التالية : 





يقوم MATLAB‏ بالحسابات مستخدما ٠١‏ خانة رقمية » أي الدقة المضاعفة 


Double Precision‏ وعادة يتم عرض خمس خانات bt‏ ويمكن عرض كل الخانات 
إذا تم إدخال الأمر : 


E‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


>> format long 

— ANS 

ans = 
-1.81250000000000 


للعودة للعرض القصير ندخل format short‏ وللعرض scientific iksa:‏ 


: notation 


>> format short e 
>> Ans 

ans = 
-1.8125e-—- 000 


Usd! يرد بعبارة بلون أحمر توضح‎ MATLAB OF خاطئة‎ 3 Le إذا أدخلت‎ 
: فمثلا‎ 
>> (x-w12 
2??? (x-y/12 
Error: Incomplete or misformed expression or statement. 


من أهم مزايا MATLAB‏ هو أن الأعداد المركبة يتم إدخالما بسهولة كما لو 
X. Lcd‏ ويمكن استخدام الحرف ذاو j‏ للدلالة غل heel stl‏ ونتم 
العمليات 1 aU‏ باالأعداد المركبة بسهولة: 


>> cçc=]+2*i 
c= 

1.0000 + 2.0000i 
sg" 
c= 

1.0000 + 2.00001 
>> (I*2)*(1-20 
ans — 

5 


MN MATLAB مياد برنامجح‎ 


نستطيع استخدام دالة real‏ « ودالة imag‏ للتعرف على أجزاء الله الى oes‏ 
gaahi‏ ف ighaall‏ 


>> imag(c) 
ans = 

27 
>> real(c) 
ans — 


1 
)١,٤(‏ المتجهات والمصفوفات 

المتجهات والمصفوفات هي أساس العمل في MATLAB ity‏ . يتم تعريف 
المتجهات عمودية أو صفية و هي مجموعة أرقام تفصلها فاصلة أو فراغ بين الأقواس 
المربعة [ ] وقد تمثل السرعة أو القوة أو أي قيمة فيزيائية أخرى. ويتم إدخال المتجه 
الصفى كالآتى : 


>> u=[2 3.6 0.5 sqrt(3)] 
uc 

2.0000 3.6000 0.5000 1.73521 

أما المتجه العمودى فنفصل بين عناصره بالفاصلة المنقوطة : 

>> y-—[1;5;7.G;pi] 
y= 
1.0000 
3.0000 
7.6000 
3.1416 


المصفوفة matrix.‏ هي عبارة عن مجموعة من الأعداد الحقيقية gl)‏ المركبة) 
عناصرها مرتبة في جدول مستطيل » يسمى كل سطر أفقي من عناصر المصفوفة صفا 
(row)‏ ويسمى كل سطر رأسي (column) inge‏ فمثلا المصفوفة ۸ ذات الأبعاد 
4 تكتب : 


>> A=/[1 2 3 4;6.2 4 5 -3,;1/2 1/3 4 -4] 
A= 
1.0000 — 2.0000 — 3.0000 — 4,0000 


١‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


3.0000- 5.0000 4.0000 6.2000 
4.0000- 4.0000 0.3333 0.5000 
وتقوم الفاصلة المنقوطة as‏ ظهو ر m; mb‏ في command window‏ بعد 
TW‏ وهذا يفيد في حال المصفوفات الكبيرة. 
(V,£, V)‏ رتبة المصفوفة 
لإيجاد رتبة المصهوفة matrix rank‏ نستخدم الأمر rank‏ : 


>> rank(A) 
ans = 
3 


(V, £, Y)‏ بعد المصفوفة 
أما لمعرفة shal‏ المصفوفة matrix size‏ فند خل size‏ : 


>> size(A) 
ans — 
3 4 


(V, £, Y)‏ طرق التعامل مع المصفوفة 


لرؤية pare‏ معين في المصفوفة فعلينا تحديد موقعه بالمصفوفة» فمثلا إذا أردنا 
العنصر الواقع في الصف الأول و العمود الثاني : 


>> A(1,2) 
ans — 

2 

ولاستخراج مصفوفة جزئية من A‏ 

>> A(1:2,2:3) 
ans = 

2 3 

4 5 
>> A(2,:) 
ans = 


6.2000 4.0000 5.0000 -3.0000 


ولإيجاد العمود الثانى من المصفوفة ندخل : 


۳ MATLAB zl y مبادئ‎ 


>> A(:,2) 
Gans — 
2.0000 
4.0000 
0.3333 


كما يمكن تبديل الصفوف في المصفوفة» فمثلاً لو أردنا تبديل الصف الأول 


>> A[3,2,1],:) 
dns — 
0.5000 0.3333 4.0000 -4.0000 
6.2000 4.0000 5.0000 -3.0000 
1.0000 2.0000 3.0000 4.0000 


وبنفس الطريقة يتم تبديل العمودين الثاني والثالث› ولكن يتغير وضع 
الفاصلة : 
)]4(:,[1,3,2,4 22 
ans —‏ 
4.0000 2.0000 3.0000 1.0000 


6.2000 — 5.0000 4.0000 -3.0000 
0.5000 4.0000 | 0.3333 -4.0000 


يمكن تبديل الصف أو العمود بأي قيمة جديدة» فمثلا لتغيير قيمة الصف الثاني 
إلى ]2356[ نقوم بإدخال : 


>> 4(2,:)7[2 3 5 6] 

A = 
1.0000 | 2.0000 3.0000 4.0000 
2.0000 3.0000 5.0000 6.0000 
0.5000 0.3333 4.0000 -4.0000 


E‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


Ll‏ إذا احتجنا إلى تغيير شكل المصفوفة ندخل reshape pal‏ الذي يضم اسم 
| لصفوفة و الث لشكل (JAM‏ مثل : 


>> reshape(A, 1,12) 
ans = 
Columns 1 through 9 
J.00 2.00 0.500 2.00 3.00 0.333 3.00 5.00 4.00 
Columns 10 through 12 
4.00 6.00 -4.00 


)£ ,£ ,3( إنشاء متجهات في MATLAB‏ 

m GN كال افوا ع ا متم‎ ad oS Digan. أو‎ unde Jd) aul Uh 
لذلك إن وجدت قاعدة معينة أو نمط متكرر للعناصر نستطيع استخدامها مع‎ Lhe 
يحدوي على الأرقاه‎ bie متجها‎ [tex - (1:10) التعبير‎ Wied ):( إشارة العمود‎ 
فتتالية حسابية أساسها غير الواحد:‎ (e أجل الضول‎ cpg ء١١ إلى‎ ١ الضحيخة من‎ 
يمكننا أن نستخدم إشارة العمود بإدخال القيمة الابتدائية للمتجه» ومقدار الإضافة في‎ 
نريد كتابة متجه × يحتوي على‎ JUN كل خطوة» ثم القيمة النهائية. على سبيل‎ 


العناصر (1,1.1,1.2,1.3,...,5.9,6) ندخل : 
x-1:0.1:6‏ >> 


وسينتج متجه سطري يحتوي على 51 عنصرا. نستطيع أيضا استخدام الأمر 
© لنفس الغرض » فنحدد البداية » والنهاية وعدد العناصر: 


>> x=linspace(1,6,51) 


الفترة ]0,27[ تقسم إلى Bo Y*‏ باستخدام linspace(0,2*pi,20) P»‏ . ولإنشاء متجه 


صفي مكون من | عناصر كلها لبا القيمة واحدء دستحدح الأمر ones‏ مع تحديد 


حجم المتجه : 


lo MATLAB cU » مبادی‎ 


>> x—ones(1,10) 
X — 
I oF Pd DI م‎ d 1 I I d 


أو لو احتجنا متجها صمريا فنستخدم | zeros yay‏ : 
y-zeros(1, 10)‏ >> 


0 0. 0 O0 0 0 0 0 0 Q0 


عند إنشاء المصفوفة الصفرية 2 بالحجم eS sad nxm‏ قي j—23‏ 
=zeros(n,m)‏ 2. ولإنشاء مصفوفة W‏ بالحجم m‏ * # » ولكن عناصرها اختيرت 


. w=rand(n,m) فنستخدم الأمر‎ (Ul eie 
>> )0</6.5 4.7 ;.5 4.1]; 
>> D=/C zeros(size(C)); zeros(size(C)) ones(size(C))] 
D= 
6.5000 4.7000 () 0) 
0.5000 4.1000 0) 0 
0) 0 1.0000 1.0000 
() 0 1.0000 1.0000 
. C بضعف حجم المصفوفة‎ D تعطينا الناتج : المصفوفة الجديدة‎ 
: diag بقيم 426 نستخدم‎ diagonal matrix وإذا أردنا إنشاء مصفوفة قطرية‎ 
>> D-diag([1 2 3[( 
D = 
1 0 0 
Ü 2 g 
0 0 3 


الأمر sum‏ يقوم CLS‏ مجموع عناصر المتجه» فإذا رجعنا للمصفوفة D‏ فإن 
DOCK)‏ هي العناصر ال k‏ الأولى في العمود cj‏ وإذا أردنا حساب مجموع pols‏ 


»11 استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


العمود الرابع في D‏ نكتب sum(D(1:4,4))‏ . كما توجد طريقة أخرى للحصول على 
نفس النتيجة وذلك باستخدام sum(D(:,end))‏ حيث إن Jus end.‏ على العمود الأخير 
في المصفوفة. 
)5,8( جر المصفوفات Matrix Algebra‏ 

سنتناول بعض الأمور 21 & المتعلقة بالمصفوفات» ونبين الأوامر التي تنفذها 
على MATLAB‏ « وفق التعاريف المعتمدة atl 4 als T‏ 


)١,١,١(‏ جمع وطرح المصفوفات 
إذا كانت المصفوفتان A‏ و B‏ من النوع OF nxm‏ مجموعهما الذي يمثل ب ۸+8 


j=1,2,...m و‎ i=1,2,...n لكل‎ ajtb; عناصرها ھی‎ c. nx m هو مصفوفة من النوع‎ 
>> B-[134:1 2 5:0 1 4] 
B= 
1 3 4 
| 2 Q4 
0 J] 4 
>> C=/03 4;123;45 6] 
Ce 
0 3 4 
I 2 3 
4 5 6 
>> B+C 
ans = 
] 6 & 
2 4 @ 
4 6 10 
: والفرق بين المصفوفتين‎ 
>> -C 
ans = 


AV MATLAB مياد برنامج‎ 

0 0 2 

-4 -4 -2 

(0Y)‏ ضرب المصفوفات 
A Lp pt‏ مصهوفة من النوع nxm‏ و sea B‏ 9 من النوع م × ص » jes‏ 
مصعو فه جداء B(3A‏ بالرمز A*B‏ > وهی مصعوفة من النوع م << وتأخذ عناصرها الشكل 
c,= > a,b;‏ لكل jaap‏ 3 فا 
k=]‏ 

أي يمكن اعتبارها مجموع جداءات عناصر الصف 1 من A‏ بالعناصر المقابلة من العمود 
[من 8غ لذلك يجب تساوي علد صفوف 8 مع عدد أعمدة 4 . وقي حال عدم توفر 


>> A 

D 2 3 

4 5 6 

Ü 5 / 
>> B 
B= 

i mod 0 
2 8 9 a 
3 7 9 2 
>> A*B 

ans = 
14 43 46 8 


32 106. 203 17 
JI 9م‎ IU I9 


>> B*4 
??? Error using ==> mlimes 
Inner matrix dimensions must agree. 


VA‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


S 


ويمكن حساب أى عبارة رياضية 66€( على مصفوفات وأعداد حقيقية : NS‏ : 


<< رم وذ‎ A)3 

ans — 
1101285 3119175 4131720 
2591400 7339635 9722220 
2431300 6886200 9121595 


ولكن لإجراء عمليات جبرية على مستوى العناصر نضع نقطة قبل العملية مثل 


A أو /. أو‎ .* 
>>5>>5*(A.*A).^3 
ahs — 
5 30 3645 
20480 | 78125 233280 
0 78125 588245 


وتختلف النتيجة ما بين العملية * ونفس العملية مرفوقة بالنقطة * . لأن العملية 
الأولى هي عملية ضرب مصفوفتين بينما العملية الثانية هي عملية ضرب العنصر 


بالعنصرء كما تبرهن الخطوات التالية : 
]4 2:3 1/=@ >> 
as‏ 
I g‏ 
4 3 
b-[56;7 9]‏ >> 


مياد برنامج MATLAB‏ 


1*4 
43 54 
>> a.*b 
ans = 
A d 
2l 36 
>> a.) 
ans = 
I 64 


262144 2187 
في العملية الأخيرة كل عنصر من ه رفع للقوة المقابلة في b‏ 


Y)‏ ,3,0( مصفوفة الوحدة و معكوس المصفوفة 
المصفوفة المربعة nxn day‏ التى تحتوى على أصفار ما عدا على القطر isb‏ 

القيم T cy‏ مصفوفة الوحدة identity matrix‏ وتنتج eye(n) Pie‏ » فمصعوفة 
الوحدة من الرتبة الثالثة هى : 
eye(3)‏ << 

aris — 
1 0 0 
0 1 0 
0 0 1 


: det( A) yl بإدخال‎ determinant 


>> A 
d = 


2 3 
3 6 
I f 


=E TS 


>> det(A) 
ans = 
9 


Y.‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


+: inv(A) أو‎ A Ju- sb matrix inverse المصفوفة‎ 


>> inv(A) 

ds — 

0.5556 0.1111 -0.3333 
-3.1111 0.7778 0.6667 
2.2222 -0.5556 -0.3333 


بحیث يكون ۸۸ = ۸ ۸ =1 و 1 مصفوفة الوحدة بحجم A‏ » وبذلك 


تكون المصفوفة غير شاذة nonsingular‏ . ويمكن AS Ul‏ سان AA‏ : 
inv(A)*A‏ >> 


ans — 
1.0000 () 0.0000 
0) 1.0000 () 
() () 1.0000 


إذا كانت المصفوفة 8 غير مربعة m × n‏ بحيث 2 m>‏ $4.5 ل MATLAB‏ 
حساب شبه المعكوس pseudo- inverse‏ بدالة pinv‏ « ويمكن الاطلاع على التعريف 
ok JI‏ لشبة op pred‏ بالأمر .help pinv‏ 


>> Ball 234 39,7 LI 18;-231;7/ TS, 

>> pinv(b) 

ans — 
-0.0080 | 0.0031 -0.0210 -0.0665 0.0966 
00117 0.0092 0.0442 0.0639 -0.0505 
0.0036 0.0124 0.0232 -0.0023 0.0162 

>>help pinv 

MATLAB Function Reference  pinv 

Moore-Penrose pseudo inverse of a matrix 

b = pinv(A) 

B — pinv(A,tol) 





Definition 


The Moore-Penrose pseudo inverse is a matrix B of the same dimensions as 


Y \ MATLAB مياد برنامج‎ 

A' satisfying four conditions: 

4*6*4 =A 

B*A*B = B 

A*B is Hermitian 

B*A is Hermitian 

If A is square and not singular, then pinv(A) is an expensive way to compute 
inv(A). If A is not square, or is square and singular, then inv(A) does not exist. In 
these cases, pinv(A) has some of, but not all, the properties of inv(A). 


E)‏ ,1,0( القيم الذاتية للمصفوفة 

الأمر poly‏ يع طي متجها ie S ie‏ على معاملات المعادلة 
المميزة characteristic equation‏ للمصفوفة ۸» حيث إن المعادلة xA‏ ة للمصفوفة هي 
-det(A I-A)-0‏ ويمكن حساب القيم الذاتية Eigenvalues‏ للمصفوفة A‏ عن طريق 
تطبيق الأمر roots‏ على المعادلة المميزة للمصفوفة. كما يوجد فى MATLAB‏ دالة 
جاهزة لحساب القيم الذاتية للمصفوفة تدعى eig‏ . 
نطبق على مثالنا السابق ونلاحظ تطابق الطريقتين» حيث إن جذور المعادلة 
المميزة AJ‏ .)133791-9-0-( تعطي القيم الذاتية للمصفوفة . 


>> p-round(poly(A)) 
p= 
I -i3 9 -9 


>> roots(p) 


ans = 
12.3292 
0.3354 + 0.78581 
0.3354 - 0.78581 
>> e1g(A) 
ans 


0.3354 + 0.78581 
0.3394 - 0.783581 
12.3292 


Y Y‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


)1,0,0( منقول المصفوفة 
منقول المصفوفة (aj) matrix transpose‏ = ۸ من النوع nxm‏ هو المصفوفة 
(aj)‏ = 'ى :من النوع "×١‏ بحيث تصبح الصفوف في A‏ أعمدة فى A'‏ والعكس. 
ولحساب المنقول نستخدم علامة الاقتباس المفردة ( ' ) وتقوم هذه العملية بقلب عناصر 
المصفوفة وفق قطرها الرئيس على النحو التالي : 


>> Al 
ais — 
1 4 0 
2.5 5 
3 6 7 
>> B-[12;34;5 6]’ حال مصفوفة غير مربعة‎ d n 





ans — 
i d 2 
2 4 6 
: مثل‎ G=G' ' إذا كان‎ symmetric matrix تسمى المصفوفة المربعة متناظرة‎ 
>> G 
i= 
6 4 -3 
4 -2 Q0 
-3 0 | 
>> y 
dns — 
6 4 -3 
4-2 0 
- 0 | 


إذا كانت المصفوفة تحوي أعدادا AS yo‏ فإن ) ' ) تعطى المنقول المرافق المركب 
complex conjugate transpose‏ : 


>> a-[14-2*i 345*i;442*i 3+4*i] 
1.0000 + 2.0000i 3.0000 + 5.00001 
4.0000 + 2.0000i 3.0000 + 4.00001 


YY MATLAB مياد برنامج‎ 


>> q' 
1.0000 - 2.0000i 4.0000 - 2.00001 
3.0000 - 5.00001 3.0000 - 4.00001 


لحساب المنقول US SI‏ من غير المرافق complex transpose‏ نسبق العلامة بنقطة 


T4‏ وه 
T‏ 
2.00001 + 4.0000 2.00001 + 1.0000 
4.00001 + 3.0000 :5.0000 + 3.0000 


يحسب MATLAB‏ النظيم norm‏ للمتجهات أو للمصفوفات على حسب نوع 
النظيم بالأوامر المذكورة في help‏ : 


For matrices... 
NORM(X,2) 1s the same as NORM(X). 
NORM(X,1) is the 1-norm of X, the largest column sum, 
— max(sum(abs(X))). 
NORM!(X,inf) is the infinity norm of X, the largest row sum, 
= max(sum(abs( X'))). 
NORM(X,'fro') is the Frobenius norm, sqrt(sum(diag( X'* X ))). 
For vectors... 
NORM(V,P) = sum(abs(V ).^P)^(1/P). 
NORM(V) = norm(V,2). 
NORM(V,inf) = max(abs(V )). 


TO‏ النظيم Ix]. s: max |x, dd ¢ „ norm‏ للمتجه ]1-3 1-]= × يحسب 


beg al pr 
norm(x,inf) 
ans — 


em | 


3 


y$‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


V)‏ ,3,0 ( العدد الشرطي للمصفو فة 

يمكن إيجاد العدد الشرطي لمصفوفة باستخدام دالة cond‏ وذلك حسب 
التعريف | 47|| 4| = cond (A)‏ < فمثلا إذا تم اختيار النظيم الإقليدي norm‏ ر 
(p=2)‏ على المتجه x= (x,,X,,...X,)‏ فإن نظيم المصفوفة : 


1/2 
A 
u r 
اا‎ 
i=l 


يمكن تحديده cond (A, 2) Vb‏ . وتعد المصفوفة حسنة الشروط well-‏ 
on‏ كلما اقترب العدد الشرطى من cel JE‏ وتدغى سيئة الشروط ill-‏ 

conditioned‏ عندما يكون العدد الشرطى أكبر من الواحد بصورة ملحوظة. 
A=[3 2 -1;-1 3 2:1 -1 -1 [ ;‏ >> 


>> cond(A) 
63.0547 








|A l. = max | Ax |, Sib. lx 


)4,4( الدوال المخزنة على MATLAB‏ 

توجد ise‏ -» من الدوال مخرنة ذاتيا في «MATLAB‏ ويمكن استحضار 
الدوال بطباعة اسم الدالة والعوامل المرتبطة بالدالة. وقد تعطي هذه الدوال LAG‏ 
أكثر على حسب نوعها. الجدول رقم )1,1( يعرض بعض هذه الدوال » حيث يبين 
اسم الدالة ووظيفتهاء و مثالا على طريقة استعمالها. ونلاحظ استخدام الحروف 
الصغيرة في جميع أسماء الدوال. بعض الدوال تحتاج إلى أكثر من عامل إدخال 
لتحصل على النتائج المرجوة» مثل bessel(nx)‏ وهي دالة البسل بدرجة n‏ للمتغير X‏ 
وق المقابل هناك الدالة  [vj] -sort(x)‏ وهى مثال على دالة الترتيب التي تعطي قيمتي 
y cols‏ هي المصفوفة المرتبة وزهي المصفوفة التي تحتوي على معاملات العناصر 
لذا الترتيب. 


مثال 
3*exp(4)‏ 
floor(3.6)‏ 
ceil(4.9)‏ 
gcd(6,8)‏ 
lem(12,10)‏ 
sqrt(5.8+2)‏ 
max([2,4,7])‏ 
min([2.4,7])‏ 
imag(4+6*i)‏ 
real(4+6*i)‏ 
|-fix(5.9)‏ 
3*round(6.8)‏ 
sum([2,3,6)]‏ 


3*abs(-4.5) 


مياد برنامج MATLAB‏ 


MATLAB في‎ ï jat دوال‎ . 


وظيفتها 

5 

تقريب باتجاه 00 - 

تقریب يانجاه 00+ 
القاسم المشترك الأكبر 
المضاعف المشترك الأصغر 
الجذر التربيعي 

القيمة العظمى 
القيمة الصغرى 
الجزء التخيلي من العدد المر كب 
الجزء الحقيقي من العدد المركب 


FTT 

تقريب باتجاه أقرب رقم صحيح 
poll ar fol‏ 

القيمة المطلقة 


الجدول رقم (V)‏ 
الدالة 
exp(x)‏ 


floor(x) 
ceil(x) 
ged(x) 
lcm(x) 
sqrt(x) 
max(v ) 
min(v) 
imag(z) 
real(z) 
fix(x) 
round(x) 
sum( v) 


abs(x) 


نعرض بعض الدوال المثلثية ومعكوس كل منها في الجدول رقم QUY)‏ 


MATLAB 4 الدوال المثلثية‎ . 
"RUN — P Als 


دالة الح التمام المشلشة 


دالة الظل المثلثية 


alls‏ القاطع المثلثي 
alls‏ القاطع التمام المثلثي 


الجدول رقم (Y)‏ 


sin(X) 
cos{x) 
tan(x) 
sec(x) 


esc(x) 


Y‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


(SY) رقم‎ J s تابع‎ 


P الظل التمام‎ lla cot(x) 
COS س‎ pev acos(x) 
sin, معكو س‎ asin(x) 
COL معكوس‎ acot(x) 

atan(x) 


tan معكوس‎ 
MATLAB تعريف دوال في‎ (V, V) 


m-file الدالة 3 ملف‎ e (VN 

يستخدم MATLAB‏ نوعين من الملفات التى تدعى m-files‏ النوع الأول هو 
بطباعة اسم الملف في نافذة الأوامر أو في أي برنامح آخر. النوع الثاني هو ملف لتعريف 
الدوال O52. » function m-file‏ باسم الدالة المراد تعريفهاء ويتم استخدام الدالة عند 
طباعة اسم الدالة في نافذة الأوامر مثل أي دالة جاهزة في -MATLAB‏ ويمكن 
عديدة. الصيغة العامة هى : 


function output=function name(input) 
Junction body 


Y V MATLAB برنامج‎ (Solu 


01 تثم يلي ذلك أسطر تحتوي على حسابات الدالة. مع مراعاة احتواء الدالة على 


(3.4) رقم‎ js 


^ Editor - C:\MATLAB7\work\fun.im 
File Edit Text Cell Tools Debug Desktop Window  Felp 
DW tm Ae د‎ | © 8f 85 BOM ذلا‎ @ s v 


function f-funix) 


يب Ls ol‏ بكلمة 


function 





الشكل رقم .)١,4(‏ نافذة تعريف الدوال .Function m-file‏ 


مثال رقم Y)‏ ,9( 


^ 3 
عرف الدالة البسيطة )2 f(x) = 6 -xX esi‏ في ملف es‏ اسم fun‏ 


وا شس MENG‏ 42:5 


YA‏ استخدام MATLAB gl y‏ في الرياضيات الجامعية 


٠ ا حل‎ 
> QUIS Call cà ux 
function p=fun(x) 
% A simple function definition 
x=x/2; 
p-x^3-2*xsin(pi*x); 


ويمكن حساب قيمة الدالة عند Q.5)‏ بطباعة gl. y = fun(2.5)‏ باستخدام الأمر 


. feval(‘fun’,2.5) 


(Y) رفم‎ Shee 


T 


عرف الدالة في متغيرين f(x,y) = × + ye" y‏ واحسب قیمتها عند )1.2( 


: UH 
: كالاتى‎ fun2 Wh 3 نستطيع تعريفها‎ 
function z -fun2(x,y) 
saxty. "exptx."2ty.^Z); 


ومن ثم تستخلم الدالة لايحاد قيمتها عند النقطة المطلوبة» بالأمر fun2(1.2)‏ 
لتعطى القيمة 297.8263 . 


كما يمكن تطبيق الدوال الجاهزة 3( MATLAB‏ على الدوال المعرفة من قبل 
المممتخدم i‏ مثل دالة zero‏ التى تستخدم لإيجاد جدور دالة بطرق عددية. فلإيجاد جدذر 
fun‏ 3 الفترة ما بين 2 و4 نكتب feero(fun’,[2,4])‏ ) ملحوظة : كتابة اسم الدالة تتم 


Ya MATLAB مياد برنامج‎ 


داخل علامات اقتباس) وسيظهر MATLAB‏ الحل في شاشة الأوامر 3.1264 . 


CUN Y)‏ أوامر تعريف الدوال 
"TM‏ أخرى لتعريف دالة daly bu t‏ هئ استخدام „inline m.‏ و Mou‏ 
اسم الدالة بين علامات الاقتباس والمتغيرات مثل : 


>> ginline('exp(-x.^2)' x’) 


Inline function: 
g(x) = exp(-x.^2) 


: feval JU als .el قيم الدالة بسهولة عند‎ lnm ثم عكر‎ 
>> feval(g,0) 
ans = 
1.0000 
: أو مباشر 3 عند أى متجه‎ 
>> x-0:3 
x — 
0 1 2 
>> g(x) 
ans — 
1.0000 0.3679 0.0183 0.0001 


لزيا 


كما يمكن استخدام إشارة @ لتعريف الدالة مثل : 


>> th = @(x,y)y *sin(x) +x *cos(y) 


(O(x,V)y*sin(x) +x *cos(y) 
>> fh(pi,2*ni, 
fh(pi.Z*pi) “ب‎ > 0 


ستناب الذالة عند ans — (1,2 T)‏ 
3.1416 


Y.‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


MATLAB الإدخال والإخراج في‎ (VA) 


(AU)‏ أوامر الإخراج 

أبسط طريقة في الإخراج أو عرض البيانات على MATLAB‏ هي عدم كتابة 
الفاصلة المنقوطة في نهاية عبارة التعريف» ولكن هذه الطريقة لا تظهر النتائج بطريقة 
مرتبة» فالأفضل استخدام أوامر خاصة بالإخراج» مثل disp AI:‏ الذي يعرض 
النتائج و العبازات النصية. 

لعرض محتويات مصفوفة نستخدم disp(A)‏ و لعرض عبارة نص يجب كتابتها 


Eon 7 pla y صمن إشارة‎ 


>> disp('this is text") 
this is text 


ويمكن عرض عبارة حتوي على نص و قيم رقمية وذلك بفصلها عن بعضها 
بالفاصلة c‏ وتكون داخل أقواس مربعة ويجب استخدام دالة num2str‏ لتحويل الأرقام 


: إلى نص‎ 
>> x 
x= 
10.8000 

> f 
i — 

3 
>> disp(['this is the value 'num2str(x),' atthe time ‘num2str(t)]) 
this is the value 10.8 at the time 3 


العرض على الشاشة أو على ملف. ويأخذ الصيغة التالية بعد تحديد المتغيرات وأنواعها 
وعدد خانات العرض مسبوقة بعلامة / : 


۳۹ MATLAB مياد برنامج‎ 
>> fprintf( filename’, format string’, list); 


>> fprintf(x—968.2f t=%8. 6f 'x,t) 
x= 10.80 t=3.000000 
أوامر الإدخال‎ CAT) 
input. بالنسبة لإدخال نص أو بيانات من لوحة المفاتيح » فنستعمل دالة‎ Ll 
وهى تأخذ الصيغة الأولى فى حال إدخال قيمة رقمية» و تأخذ الشكل الثانى إذا أردنا‎ 
١ القيمة المناسبة باستخدام لو حة المفاتيح‎ 


>> x-input(' text"); 
>> x=input('text','s'); 


لإدخال بيانات كثيرة يفضّل استخدام الأمر load‏ الذي يمكن المستخدم من 
إدخال بيانات تم حفظها في ملف » ويكتب اسمه بعد الأمرء أي load filename‏ . عند 
وجود البيانات في ملف يمكن قراءة البيانات بعد فتح AM‏ بدالة ye fopen‏ طريق أحد 
الأوامر feet! « fscanf‏ أو fread‏ وكل من هذه الدوال لبا صيغة معينة» وتعتمد على 
نوع املف ونوع البيانات ( text « binary‏ « ... ). وجب إققال الملف عند الانتهاء من 
قراءة البيانات بالأمر felose‏ . لمزيد من التفاصيل عن دوال الإدخال نقترح اللجوء إلى 


. help 


)3,3( الرسم على MATLAB‏ 
من أهم تميزات MATLAB‏ القدرة على رسم المنحنيات ثنائية و ثلاثية 


الأبعاد 3D graphics‏ والتى يصعب رسمها ببقية لغات البرمجة. ويقدم MATLAB‏ 


ry‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


وسائل مساعدة للتحكم بالرسوم وتعديلهاء سواء من ناحية LA‏ اجاور اوتاب li‏ 
ولون خط الرسم أو تحريك الشكل. يوفر MATLAB‏ دوال عديدة للرسم ويمكن 
استخدامها مباشرة على الرسم أو كتابتها على شكل أوامر في نافذة الأوامر. 


),۹,١(‏ الرسم في بعدين 

الأمر الأساسي في الرسم في بعدين هو :7/0/6 ويقوم هذا الامر بفتح شاشة 
خاصة بالرسم تسمى figure file‏ يتم رسم المتجه × في حور السينات والمتجه By‏ 
حورالصادات. كما توجد دوال أخرى مثل : 

shold e‏ تقدم هذه الدالة إمكانية رسم أكثر من منحنى على نفس الرسم» حيث 
يتم تفعيلها ب hold on‏ و هذا بعد إنشاء الرسم الأول» ثم يتم رسم المنحنى التالي» 


ويمكن إيقافها ب hold off‏ . 


axis o‏ تقوم بتحديد ا محاور مع العلم MATLAB Ob‏ يقوم بذلك بشكل ذاتي 
ولكن هذه الدالة تستخدم لإظهار أفضل شكل من تكبير أو تصغير أو حتى إظهار جزء 
من الرسم. 

title o‏ تقوم بإدراج عنوان في أعلى الرسم. 

xlabel e‏ : تستخدم لتحديد تسمية ا حور الأفقي للرسم. 

ylabel e‏ : تستخدم لتحديد تسمية المحور العمودي للرسم. 

figure e‏ : تستخدم لفتح نافدة للرسم جديدة للعرض. 

fplot e‏ : تستخدم لرسم دالة معرفة مسبقا بقيم مختلفة. 

Pllot(x1,y1,x2,y2,x3,y3,....) e‏ : تستخدم لرسم عدة منحنيات على نفس 


المحاورء باعتبار الأزواج المرتبة (xLy1), (2,2), (x3,y3)...‏ 


۳ MATLAB برنامج‎ (2L 


وهناك وسائل تحكم عديدة على شاشة الرسم» مثل تغيير طريقة الرسم من 
خط مستقيم إلى خط مقطع ؛ أوخط يحتوي على رمز توضيح» ويمكن تغيير Hate‏ 
الخط ولونه من الجدول رقم (VY)‏ مع مراعاة كتابتها بين علامات اقتباس. يستطيع 
المستخدم إضافة نص في أي OLS‏ على الرسم» وكذلك إضافة مفتاح للتمييز بين 


المنبحنيات. 
figure‏ >> 


P y-—cos (x) , "d v 


>> plot(x,y, -- ); 
>> xlabel(x-axis'); ylabel("y-axis'); 


>> hold 





V عع‎ F James M d h old ي‎ 


Current plot held 


r . i 3 سو‎ M LJ اللو‎ 
>> z=sin(x); "x 


>> nuns xp 


>> fitle("plot of cos{x) and sin(x)); الر سم چ‎ Ol gar 


يظهر الرسم الموضح في الشكل رقم )1,0( على نافذة مرقمة خاصة بالرسم 
تسمى -Figure‏ ويتم التحكم بالخطوط والألوان عن طريق رموزء أدرجنا بعضها في 
J yA!‏ رقم elo Sy (CY)‏ أقواس cplot Wo‏ وکن كتابة PSI‏ معن 340 
للحصول على الرسم المناسب مثل plots, r)‏ التي ترسم المنحنى بخط أحمر مقطع 
تتخلله نجوم. كما يمكن التحكم بالشكل من خلال شريط الأوامر بالنافذة . 


استخدام برنامج t MATLAB‏ الرياضيات الجامعية 
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at X‏ ميسكم 


ولرسم الذوال PA ie x ex^‏ الدالة subplot‏ التي شكتنا من نجرىء 
العرض إلى عدد من الخلايا ورسم كل دالة في خلية كما هو موضح في | A‏ لشكل رقم 


AMO 


vo MATLAB مبادئ برنامج‎ 


>> x=-5:5; 

>>subplot(2, 2,1); plot(x,x.^2);title(x^2") 
>> subplot(2,2,3); plot(x,x.^3);title(x^3') 
>> subplot(2,2,2); plot(x,x);title(x') 

>> subplot(2,2,4); plot(x,x.^4);title(x^4') 


x? X 

















الشكل رقم (Cj‏ مثال على %> .subplot‏ 


(NE) رقم‎ Ji 
Pads غير متضلة ومعرفة‎ f(x) لرسم دالة‎ 


-mAzxzmiA 
mAzxzm/2 


3 > عن > 7/2 





v4‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


تنكل كل ES X3 X2, xl. col gaze UU SLE cea epee‏ ج مر الذالة 
عمتجهات yl, y2, y3‏ : 


>> xl -—-pi/4:pi/200:pi/4; 
>> yl -tan(xl); 

>> x2—pi/4:pi.200:pi/2; 
>> y2-sin(x2); 

>> x3=linspace(pi/2, 3); 
>> y3=exp(x3); 


ثم نضم متجهات JU‏ في متجه واحد x‏ و بالمثل ننشئ متجه Dy‏ 
اك oe x2‏ 
plot(x,y)‏ >> 


الشكل رقم (VY)‏ 


points of 


f(x) 


discontinuity 





-5 
-1 -pi/4 0 pi/4 1 pi/2 2 2.5 3 
x 


الشكل رقم .)١,۷(‏ رسم الدالة fex)‏ . 


مبادئ برنامج ry MATLAB‏ 
هناك أنواع مختلفة من الرسومات» ومن أهمها : 


e‏ إذا كانت الدوال معرفة منحنيات وسيطية parametric curves‏ فترسم بنعس 
الطريقة > فمثلا لرسم دائرة بمركز )12( ونصف قطر Y‏ معرفة ب x-1*2cost‏ و 
y-12sint‏ على الفترة 2۳ > > 0 ندخل الأوامر التالية لنحصل على الشكل رقم 
)1,۸( . 

>> (-0:2*pi/200:2*pi; 


>> plot(1+3*cos(t),2+3*sin(t)) 


theta مدخلة في المتجه‎ bly JU تنتج رسما بمحاور قطبية‎ polar(theta, r) الدالة‎ e 
يعطي الشكل رقم‎ polar(x,sin(2*x)) الأمر‎ Wad وغ‎ 4 t القيم مدخلة‎ 9 
ol A) 


Pie chart أو على شكل‎ Bar chart البيانات على شكل‎ ERE أحيانا في‎ E je 
دوال جاهزة لذلك. على سبيل‎ MATLAB adi s Scatter points متفرقة‎ bli أو‎ 
نسبة درجات الطلاب 3( مادة معينة » وط طريقة‎ [bc متجه‎ a حيث‎ pie(ajb) المثال‎ 


التجزيء (هنا اخترنا أكبر قطعة تمثل التقدير (C‏ تعطي الشكل رقم )١.٠١(‏ . 


OY ينتج الرسم في الشكل رقم‎ bar(x) الأمر‎ e 


۳۸ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


A circle center (1,2) radius 3 





الشكل رقم (Y, A)‏ رسم دائرة بنصف قطر ۳ ومركز )1,2( 


example of polar graph 


860 ~ سس 120 


180 1 ١ ! | 0 


210 330 


240 — EU ao. 


Y^ 


26976 


MATLAB نامج‎ FIM 


Example of Pie chart 
Class Grades 
896 


19% 


الشكل رقم )+ ان مثال لرسم .Bar chart‏ 


Example of Bar chart 
Class Grades 


F | A D 
Grades 


. .Bar chart e 7 الشكل رقم \ 3 مغال‎ 
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Y)‏ ,3,4( الرسم في الأبعاد الثلاثية 

مکن MATLAB‏ المستخدم من العرض البياني في ثلاثي الأبعاد على شكل 
خطوط shal BW ls‏ أو مسطحات متنو (AS‏ وسنعرض ف هذا BLS itl‏ عن بعض 
الدوال التي تتحكم في هذا النوع من الرسوم » وللتعرف أكثر على ما يمكن استخدامه 


من أوامر أخرى ننصح بالرجوع لأمر المساعدة help graphics‏ 
الدالة plot3(x,y,z)‏ ترسم رسما ثلاثي الأبعاد » وقد استخدمنا الأوامر : 


t = O:pi/50:10* pi 
plot3(sin(t),cos(t),t ) 


والناتج هو الرسم الحلزوني في الشكل رقم (AAY‏ 


plot3 


0.5 





- "n 


الشكل رقم Y)‏ ,3( مثال لرسم بالأمر 3 plot‏ . 


EA MATLAB مبادئ برنامج‎ 


كما توجد دو ال اخ L6‏ لر سم مثل meshgrid, mesh, surf, contour, contour3‏ « 
ولكن ف المداية dias ess‏ الدالة بتعريف مصفوفتين لالإحداثيات y 9X‏ ودستحدم 


: meshgrid دالة‎ 


>> [x y[ »meshgrid(-8:0.5:8); 


ثم نعرف الدالة 2 » ونستخدم eps =2.2x10 «3 JI‏ لتفادي القسمة على 


>> r=sqri(x.“2ty."2)+eps; 
>> z-sin(r)./r; 
: وهنا بعض الأمثلة لرسم القبعة المكسيكية باستخدام دوال مختلفة‎ 
QV) ينتح الرسم على شكل شبكة كما في الشكل رقم‎ : mesh رمألا-١‎ 
تقاطع الأعمدة والصفوف في الشبكة من المصفوفات المحددة في‎ bls بحيث تأتي‎ 
. meshgrid 
ANNE) وينتج الشكل رقم‎ » surf لرسم مسطح نستخدم الدالة‎ — Y 
المبينة بالشكل رقم‎ contours يمكن رسم خطوط محددة للرسم بدالة‎ 7 Y 
KA YO) 
meshe  surfe يمكن رسم الخطوط تحت المسطح أو الرسم الشبكي بدالتي‎ -8 
(VO مثل الشكل رقم‎ 


0.5 .| 


-0.5 4. -- 


40 


0.5 - 


-0.5 -L 


mesh(z) 
i 
| | 





surf(z) 





الشكل رقم )£ 1,9( Je‏ لرسم بالأمر surf‏ . 


t1 


ew MATLAB برنامج‎ (solu 


contour3(z) 





0.5 4 





-0.5 L- 
30 


20 — 


y x 


. contour3 py wy الشكل رقم )3,38( مغال‎ 


meshc(z) 







0.5 


^ jl "m m 
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الشكل رقم 9( ai‏ 7 سم بالأمر meshe‏ . 
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)+ 1,1( العلاقات وعمليات المنطق الرياضي في MATLAB‏ 

بالإضافة للعمليات الرياضية التقليدية التى يمكن القيام بحسابها في MATLAB‏ 
فإنه يقوم بإجراء عمليات وعلاقات 3( المنطق الرياضى „Logical Operators‏ 
ود يعدم |a MATLAB‏ جديدا وهو المتجه المنطقى logical vector‏ وهذه خاصية قوية ب 
MATLAB‏ ولا توجد في أي لغة أخرى. البدف من عمليات المنطق الرياضي هو الرد 
على الأسئلة الصائبة و الخاطئة» و يقوم بهذه العملية MATLAB‏ ويخرّن النتائح في 
المتجه المنطقي الذي يحتوي على القيمة 1 للصائب و القيمة 0 للخاطئ. أما أدوات 
الربط في المنطق الرياضي على MATLAB‏ فهي موضحة في الجدول رقم .)١.5(‏ 
نستخدم أدوات الربط للمقارنة بين متجهين بنفس الحجم» أو لمقارنة عدد ثابت بمتجه. 
ونقارن الأعداد ببعضها وتكون الاجابة بصائب (1) أو خاطئ (0). 

أكثر استخدام لبذه المقارنات هو في SE‏ البرمجة » OY‏ استخدامها يعطي البرامج 
سرعة ويجعل المهمة التي محتاج ply Lid bias suite |a d‏ وا حيدم 
«MATLAB‏ وسوف نعرض أمثلة على البرمجة في الجزء القادم. 


الجدول رقم .)١,٤(‏ أدوات المنطق الرياضي. 


أقل من أو يساوي = 
NP‏ شاوی eem‏ 
عدم المساواة —— 
dm stl‏ 

و & 


أو | 


teo MATLAB مياد برنامج‎ 


مثال رفم )1,8( 


نفرض أن لدينا متجهين A‏ وي : 


» A—I:II, B=16-A, 


I 2 3 4 F 6 7 S&S 9 JU ll 


B= 
Is T4 JF I2 H I0 9 8 7 6 


: 5 وعدد ثابت‎ A المتجه‎ X lac اذا قمنا‎ 
» فرعم‎ < 
r= 
Ü 0 0 0 D I1 lI I I 1 a 


Ob‏ العناصر الصفرية في المتجه المنطقى r‏ تدل على ASS‏ والعناصر التى تحتوي 
على الرقم واحد تدل على ۸<5 : 


» r=(A==B) 
T= 
0 0 0 0 0 0 0 1 0 Q O0 


في هذه المقارنة نبحث عن العناصر من SIA‏ تساوى pole‏ من 8 . كما 


» R—-(A7 5) 
R= 

I 1 {I J ft 0 0 0 0 0 0 
» R=(A>35)&(A<8) 


0 0 U O0 U I T» 0 0 U 


ibe‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


في هذه المقارنة ينتج العدد واحد عندما تكون SIA‏ من 5 وأصغر من 8. 
إضافة لما سبق من عرض لأدوات المنطق الرياضى يوفر MATLAB‏ للمستخدم 
العديد من الدوال المنطقية» مثل الدوال في الجدول رقم )١,0(‏ : 


الجدول رقم .)١.5(‏ أدوات المنطق الرياضي. 


دالة xor(x,y)‏ 
c‏ صائب (1 C‏ إذا كان أي عنصر any(x) X T‏ 
غير صمري 

i 1] p . * z 
all(x) في‎ pais تنتج صائب(1 ) إذا كان كل‎ 
غير صمري‎ × 
صائب إذا كانت العبارة الحجية فارغة ا‎ 
isequal( A,B) متساويين‎ B و‎ A صائب إذا كان‎ 
isinf(x) صائب إذا كانت × مالا نهاية‎ 

find 


يبحث عن شرط معين 


نمثل لطرق استخدام بعض هذه الدوال في التالى : 
b-[0 inf 0 0 0 9];‏ >> 


>> find(isinf(b)) 
ans — 

2 

الإجابة 2 تعطي رقم العنصر الذي يحقق الشرط : 

-A> (Il 
a= 

0.5000 1.0000 1.6000 1.2000 0.5000 2.1000 
>> find(isempty(a)) 
ans = 

[ / 
>> find(isequal(a,b)) 
ans — 


[ ] 


£M MATLAB مياد برنامج‎ 


نلاحظ إجابة MATLAB.‏ ب [] لدالة البحث find‏ » مما يدل على أنه لا يوجد 


Ae oes الشرط:الذق‎ 

>> all(b) 
ans = 

0 
> > any(b) 
URS — 

/ 
الإجابة 0 تدل على أنه ليس كل pole‏ ط صفرية» أما الإجابة 1 تدل على 


وجود pole‏ غير صعرية T‏ ا . 


åf jJ (4,44)‏ في MATLAB‏ 
هناك تشابه كبير بين à£ JI‏ في MATLAB‏ ولغات البرمجة المعروفة ذات المستوى 
الرفيع lin iy Sie. MATLAB Lely.‏ من لغة FORTRAN‏ و PASCAL‏ مع 
yaw‏ الإضافات من CAN‏ .ختلف MATLAB‏ .عن اللغات الأخرى diy 59S‏ 
interactive‏ وجميع البرامج يتم ترجمتها MATLAB t‏ حملة حملة interpreting‏ بدلا 
من ترجمة البرنامج compiling‏ كما يجري في اللغات الأخرى. لأن MATLAB‏ يتعامل 
مع المتغيرات على Lgl‏ مصفوفات» فهو يوفر برامج عديدة متطورة و جاهزة 
للمستخدم في جال المصفوفات مثل حل نظام معادلات خطية أو إيجاد القيم الذاتية 
الأوامر if e for‏ و while‏ تعد أساسيات البرمجة على .MATLAB‏ نقوم i£ JU‏ 
على , MATLAB‏ باستخدام الحلقات loops‏ وهي جموعه من الأوامر التي jas‏ بشكل 

تکراري حتى يتحقق شرط معين مثل while loop « for loop‏ . 
:108-١‏ يتم تنفيذ تكرار العبارة داخل الحلقة بعددٍ محدد من المرات يحدد 


استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


بوساطة عداد 431-1 counter variable‏ الذى يبين متغير العداد» والقيمة البدائية 
Jadia‏ 


for counter variable=initial value:final value 
action 
end 


: ذات الشكل الخاص بالبرنامج التالي‎ c من إنشاء المصفوفة‎ for الأمر‎ ES 
» for i=1:5 
for j71:5 
if i-—j 
CLP ait -i+ 1); 
elseif j^ i 
c(ij) - - ) -I , 
else j<i 
c(i,j)=c(j,i);end 
end 


— b uo A t 
bBo 4 oO Oo 4 
A So Oy A bo 
n h w bh s 


لحساب مضروب الأعداد من ٠١ IY‏ نكتب VEU p‏ باستخدام for‏ : 


>> n=O; 
>> fact=1; 
>> for k=I:n 
jfact=k* fact; 


disp([k fact]) 
end 

7 l 

2 2 

3 6 

4 24 

5 120 

6 720 


2A 
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7 | 5040 
ó 40320 
9 | 362680 


3628800 10 
ولتوفير الجهد على المستخدم توجد دالة جاهزة في MATLAB‏ تدعى factorial‏ 


>> factorial( 10) 


ans — 


3628800 
مثال رقم ر" )١,‏ 
استخدم حلقة OLS for‏ نهاية المتسلسلة Xn = ×. /n.‏ حيث Qc ym) G10‏ 
الجزء القادم دالة جاهزة في MATLAB‏ تقوم بحساب النهايات بأمر واحد). با أن 
MATLAB‏ لا يتعامل مع المتجهات غير المنتهية فإننا نستخدم قيمة كبيرة لعدد الحدود n‏ 


ghar)‏ الصورة العامة للنهاية» وهنا افترضنا أن 8-10 حيث نرى نهاية العبارة تتقارب 
إلى 27535740 


>> a-lü; 
D ا‎ 
>> k-lÜ; 


>> Íforn-l:k 

x-—a*x/n; 

disp([n x]) 

end 
10 
50 
166.6667 
416.6667 
833.3333 
1.3889e- 003 
1.9841e--003 
2.4802e-- 003 
2.7557 eT 003 

() 2.755 7e 003 
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Gat أن الشرط‎ Ub تستخدم لتنفيذ عبارات برمجية‎ : While —Y 


while condition 
action 

increment action 
end 


في المثال نلاحظ استخدام أدوات الربط للمنطق الرياضي التى تسهل كتابة 


while sum(x)—-—max(y) 
x—x.^2:; 

y-ytx, 

end 


cif -۳‏ تقوم بفحص شرط tee‏ وبعد ذلك يتم الانتقال إلى تنفيذ تعليمات 
معينة إذا تحقق الشرط. ونستطيع استخدام أكثر من عبارة if‏ داخل بعضها على شكل 


. nested loops 


الشكل العام : 


if condition 
Statements 
end 

if condition 
Statements 
else 
statements 
end 

if condition 
-—statements > 
elseif condition2 
statements 
else 
Statements 
end 


o MATLAB برنامج‎ (ala 


مثال رقم CIV)‏ 
لو EEN‏ تكست عسات دون معادلة من الدرجة الثانية ax’+bx+c‏ 
-b * Xb^ —4ac‏ 
20 


باستخدام المميز للمعادلة LS (-10x+12+2x7=0)‏ ندخل 


: الخطوات التالية‎ 
>> حي‎ 
>> b--I0; 
>> c=12; 
>> d-b^2-4*a*c; 
>> ifa~=0 
ifd<0 
disp('complex roots’) 
else 
x1 =(-b+sqrt(d))/(2*a) 
x2-(-b-sqrt(d))/(2*a) 
end 


end 


jet‏ على الحذور 


Symbolic Algebra ja) Chl (1,17)‏ 
كما عرضنا في الأجزاء السابقة MATLAB GAS‏ القدرة EET‏ على التعامل 
مع الحسابات العددية» فإننا في هذا الجزء نعرض قدرة MATLAB‏ على التعامل مع 
الحسابات الرمزية PIE Lll symbolic manipulations‏ التي نحتوى علي ) 3924 لیس 
Ld‏ قيم عددية معرفة T‏ ويعطي MATLAB‏ نتائح بدلالة هذه الرموز. وهذه الميزة 
أضيفت في الإصدارات الجديدة من البرنامج » ويتمكن MATLAB‏ من إجراء ذلك عن 

طريق المحرك MAPLE‏ . 
للدخول في بيئة الحسابات بالرموز بجحب طباعة الأمر syms‏ وإدراج المتغيرات 


التى يراد استخدامها كرموز( يعتبر MATLAB‏ الرموز ذات قيم صحيحة»› Lel‏ إذا OLS‏ 


oY‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


الرمز ذا قيمة حقيقية فيمكن إضافة كلمة Creal‏ فإذا أردنا حل معادلة من الدرجة 
val ba)‏ مثل 0= X T x'-2x^-x42‏ نستخدم | لأمر solve‏ : 


> > SYMS x 
>> solve(x*3-2*x*2-x+2) 


والناتج هو الجذور الثلاثة : 


ans — 
-] 


أو إذا Us jl‏ ليل المعادلة نستخدم factor "vl‏ : 


>> factor(x^3-2*x^2-x* 2) 
ans — 
(x-1)*(x-2)*(x+ I) 


ويمكن إيجاد المشتقتين الأولى والثانية بالأمرين dite)‏ و .)2 diffiféx)‏ : 


>> diff(x^3-2*x^2-x* 2) 
ans — 

3 *x^2-4*x-] 

>> diltx^3-2*x^2-vF 2,2] 

ans — 

6*x-4 

: inf) حساب التكامل غير ا محدود فيتم بالأمر‎ ul 

>> int(x^3-2*x^2-x4 2) 

ans — 


I/4*x^4-2/3 *x^3-1/2*x^2- 2*x 


والتكامل المحدود من 0 إلى 3 لنفس الدالة هو : 
int(x^3-2*x^2-x4 2,0,3)‏ >> 


لحساب القيمة العشرية للنتيجة السابقة = ans‏ 
نستخدم الأمر Fa | | double (ans)‏ 
>double(ans) |‏ > 

ans — 


3.7500 


oY MATLAB مبادی برنامج‎ 


كما یو جد أمرتنفيذى رمرى لرسم الدوال ezplot(f,[a,b])‏ حيث [a,b] o!‏ 


هي المترة المداذ وسيم الدالة عليه عليها i‏ فلنرسم t BIET‏ المترة ]10,10-[ —- لنصا i‏ للش كل 


x*-2 xt-442 


-1000 


-1200! 


الشكل رقم Jue (4, 4V)‏ لرسم بالأمر .ezplot‏ 


يعدم MATLAB‏ دالة dsolve‏ التي تعطي y p‏ لعادلات تفاضلية. المعادلة ذات 
القيمة الابتدائية عند 1.5- : 
y '-y-x,‏ حيث إن 1- - (1.5-)بر 
S‏ حساب [EI‏ بتحديد المعادلة و القيمة الابتدائية و المتغير : 


>> SVMS X y 

>> h-dsolve( Dy-y-x,y(-1.5) 7-1, x) 
h- 

xtI-I/2*exp(x)/exp(-3/2) 


وإذا أردنا الحل العام لمعادلة تفاضلية من الدرجة الأولى Y= x^ y‏ 


>> g-dsolve( Dy-x^2*y x) 


-xX^2-2*x-2-exp(x) *C1 
أما لإيجاد نهاية العبارة الرياضية:‎ 
, 21-1 
lim 


limit yal “S23‏ مع لین caa‏ والمتغي i‏ والنهاية : لنحصل على النتيجة: 


>> syms x, limit((2*x-I)/sqrt(3*x^2--x-1),x,inf) 
ans = 


2/3 OL) 
أو النهاية من اليمين واليسار:‎ 


T = 

(x-3)/abs(x-3) 
>> a limit (f,x,3, left") 
"T 
-] 
>> a =limit (f.x,3,'right") 
aie 


ويمكن تعريف دوال 3,25 جاهزة مثل laplace‏ و الدالة العكسية ilaplace‏ « 


4418 C3, 1A) أو 8 ورسمها بالشكل رقم‎ besselj 


laplace(a) 

ans — 

Le 

>> laplace(t^2) 

ans — 

2/8^3 

>> ilaplace(1/s^3) 
ans — 

DFE 
besselj(1,[0:0.1:50]) 
plot([0:. 1:50], besselj(1, [0:.1:50])) 
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besslj (1,x) 
0.6 


0.5 r] 
Q.4 -] 
0.3 


0.2 


-0.1 
-0.2 
-D.3 


-0.4 
ü 2 10 15 20 25 30 35 40 45 20 


. besselj راسم‎ ai ANNA) رقم‎ ; IS الث‎ 


وسيتم عرض كل هذه الأوامر الرمزية بتفصيل أكثر في الفصول القادمة حسب 
استخداماتها المختلفة. بصورة عامة في بيئة الحسابات الرمزية لاحظنا كيف يسهل 
MATLAB‏ إجراء الحسابات خاصة للطلاب في حلول التمارين المعقدة» والتى تستهلك 
اکر من وقق SUS‏ الو all‏ جلها MATLAB logu dÚ Key o s cU‏ 
من الاطلاع على حلول لكمية أكبر من التمارين لترسيخ أي مفهوم رياضي. 


oos (MY) 
By ge اط‎ (3 WWI العبارات‎ USI اد‎ 
3.5-6/17(377) (1 
Sin(1.5)/Se* ( ب‎ 
2>3&1 (> 


د ( 01*3 2 1[- 


5 استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


-Y‏ المتجهان ]125 3.2[ و [5.5 1.9] Od‏ ضلعين في مثلث + والضلع الثالث 
هو حاصل جمعهما » احسب lue‏ المثلث. 
-Y‏ إذا كان C-[1 -1 2 -1 1[ : B =]4 5 6 7 8[ A -]1 2 3 4 S]‏ احسب 


A.*(B.*C) و قارن مع‎ (A.*B).*C 


0c x <2n y=2sin3x+3cos2x (| 
3zs <3 t=2s/(1+s°) (5 
AS x 22 y-3In(14x) (= 
: لرسم الدالة التالية‎  m-file ه- اكتب‎ 
m 
x—3-—cos—x عر > ر‎ > 4 
f(x)= 
|-—-tan—x 0 > عر‎ > 2 


. y=1:0.1:3 x=1:0.1:3 على‎ z=2xy/(x*ty’) لرسم‎ mesh استخدم دالة‎ -1 


ثم قارن ب «surf‏ و contour‏ . 


CSNY t£ Lua Aly cola Aa] سات‎ LU eu كك‎ ۷ 
والرسم للتأكد‎ max « min واستخدم الدوال‎ [0, 2 x] على‎ y = 2sin(2x)-3cos(x/2) 
ANS لاستخدام الممير لحساب جدذرئ معاذلة من الدرجة‎ LEU y اكتب‎ -۸ 

طبق البرنامج على 2x^-12x418-0‏ واستخدم fprintf‏ لطباعة النتائج. 


ov MATLAB مبادی برنامج‎ 


فاك ثيب » Leb‏ لإنشاء مصفوفة 3x3 A‏ قطرية بالقطر [4 2 1] ثم أجر 
العمليات التالية : 

Sy SU بدل العمودين‎ CI 

ب) قم بإضافة عمود رابع صفري وسم المصفوفة 8. 

ج) احسب المحدد» الرتبة » المنقول وأوجد المعكوس ل ۸ . 

د)احسب ۸*8 وقارن ب A.*B‏ 

ه) هل المصفوفة 4 متناظرة ؟ 


و) تأكد من (AB) - B'A'‏ 


„syms حل المعادلة 0 = 20-31-12 باستخدام‎ = Ya 

-١ ١‏ بسط الغبارة (x -y W(x-y)‏ للحصول على S‏ 8 حدود. 
NY‏ استخدم ezplot‏ لرسم الدالة y=exp(-x”’)‏ باختار awd JU‏ 
MY‏ احسب القيم الذاتية للمصفوفة : 


| 0 2 
A= 0 1 =] 
=l 1 [1 


-١ 4‏ أثبت باستخدام inv‏ أن المصفوفة غير شاذة : 
0 12 
m=|2 1 -l‏ 
1i 1‏ 3 


استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


059-0909 TP 
ليصبح للمصفوفة التالية معكوس؟‎ a ماهي قيم‎ -١ 


o۸ 


Mose) 


حلول نظام المعادلات الخطية MATLAB gle‏ 





Systems of Linear Equations 44>) نظام المعادلات‎ ARD 
أسباب تطور علم الرياضيات هو البحث عن حلول لمسائل تطبيقية» وعندما‎ eal من‎ 
: لكتابته على شكل نظام معادلات خطية‎ bab مكل نظاما تطبيقيا رياضيا فإننا أحيانا‎ 
: MATLAB هذا الفصل سنعرض كيف يتم إيجاد حلول مباشرة لبذه الأنظمة على‎ Gs 
التكرارية في نهاية الفصل. يتم تمثيل المعادلات الخطية بمصفوفات‎ GLU كما سنتطرق‎ 
aht من أنسب البرامج لدراسة أنظمة المعادلات‎ MATLAB ومتجهات وبذلك يكون‎ 
LENG «xs al Atm 3 معادلات خطية‎ n لإنشاء نظام من‎ «dle بصفة‎ 

1S 
36 PU Ko Fe EOL =D 


EEA APE ED 


RFS t.t a, X, — D, 
MXN للمصفوفة المربعة بحجم‎ A وترمز‎ . Ax-b. حيث يمثل النظام كمصفوفة‎ 
ونبحث عن الحل المتعلق‎ ١ متجه الطرف الأيمن بقياس‎ b المكونة من المعاملات» و‎ 
لاا‎ p Arce 


EE 


p‏ استخدام MATLAB gl y‏ في الرياضيات الجامعية 


A Go c Gi, X1 b, 


G^, G +- إن د‎ ¬ 


mm ىا - ىا‎ - ^" X mm 9 ^" mm ىو‎ 
ل‎ - * 7 ï * 
* * Ld 7 L i 


nl "na nn H H 


]15 فرضنا أن مصفوفة المعاملات ۸ هى مصفوفة غير شاذة» أى يوجد لها 
معكوس c‏ فبذلك يكون للنظام حل وحيد unique solution‏ « ونمثل بالمعادلة X-A' b.‏ . 
over-determined‏ ولا يوجد حل له. وإذا كان عدد المعادلات أقل من Q eux se‏ 


النظام فإنه يعد under-determined‏ و يوجد عدد غير منته من الحلول. 


MATLAB باستخدام \ على‎ Ax=b ia! حل نظام المعادلات‎ (Y. Y) 
باستخدام أداة القسمة‎ MATLAB يتم حل نظام معادلات خطية على‎ 
وهي تختلف عن القسمة باليمين / بالنسبة للمتجهات والمصفوفات. فعند‎ V باليسار‎ 

. B*inv(A) ¿lQ فهو‎ B/A Lic: inv(A)*B فھذا يكافين‎ AB ادخال‎ 


(T, 9) رقم‎ Slee 
وده‎ EA 5-1 
يوت‎ rje tax, m 


ندخل في MATLAB‏ مصفوفة المعاملات A‏ ومتجه الطرف الأيمن b‏ : 


A5 MATLAB نظام المعادلات الخطية على‎ J al> 


3 2 -I 
=f 3 2 
i -f -Í 
>> b=[10 5 -IJ' 
b= 
10 
5 
-] 
>> A\b 
dns — 
-2.0000 
5.0000 
-6.0000 


بتطبيق عملية القسمة من اليسار محصل على الحل 6- X: = 5, x3=‏ ,2- =× . 


يمكن أيضا استخدام المعكوس لإيجاد الحل بحساب CAT b‏ ولكن الحل بالأداة ١‏ أدق 
وأقل استهلاكا للعمليات الحسابية . 


>> inv(A)*b 

ans — 
-2.0000 
5.0000 
-6.0000 


كفك استتكسال e‏ القسمية FA?‏ لحل نظام Ax-b‏ فان MATLAB‏ يختار 
الطريقة الأنسب والأقل تكلفة حسب نوع المصفوفة A‏ : 

e‏ إذا كانت A‏ مصفوفة مثلثية (علوية أو سفلية) فإن MATLAB‏ يستخدم 
التعويص التراجعي أو الأمامي فقط Backward or Forward substitution‏ . 

© إذا كانت A‏ مصفوفة مربعة فإن MATLAB‏ يستخدم الحذف 
Gaussian elimination, ~ l+!‏ . 

QR يستخدم التحليل‎ MATLAB مصفوفة غير مربعة فإن‎ A إذا كانت‎ e 


. Factorization 


Y‏ استخدام MATLAB gl y‏ في الرياضيات الجامعية 


o‏ إذا ACIS‏ مصفوفة مربعة و sparse‏ فان MATLAB‏ يستخدم التحليل 


. Cholesky Factorization 


مثال رقم (T. Y)‏ 
إذا كان y LA se‏ أكثر من عدد المتغيرات في النظام over-determined‏ 


: je system 
x,+x,=2 
2.05%, 4-1 
UB EIS 
— X, * 2x, = 0.92 
4x, +x, =3 


least squares بأصغر مربعات‎ cos JJ بطريقة‎ P يقدم‎ MATLAB فان‎ 


.approximation‏ خل مصفوفة المعاملات ومتجه yes d|‏ ونستخدم ال اا 


>> ce-[1 1 +205 -1:3.06 1;-1 7 
c= 
1.0000 1.0000 
2.0500 -1.0000 
3.0600 1.0000 
-1.0000 — 2.0000 
4.0000 1.0000 
>> d=/2;1;3.5;.92;3] 
a= 
2.0000 
1.0000 
3.5000 
0.9200 
3.0000 
>> وام‎ 
ans — 
0. 7/159 
0.5087 


حلول نظام المعادلات الخطية على AY MATLAB‏ 


OY s‏ النظام کر OW inconsistent system pnts‏ الحل سيكون تقريبيا لبعض 
المساؤلات ولس ISS‏ 3 القابل ]15 OLE‏ عدا ol sell‏ أكدر من se‏ العادلات 
under-determined system‏ فالناتح سيكون عدد غير منتهى من الحلول. 


(T, P) رقم‎ See 


: أوجد حل النظام التالى‎ 
AEA EI 
—4x%, F 2%) +3x,=3 


>> [/دن‎ 23:-4 2 5] 
a= 
i 2 3 
-4 2 53 
>> b-[l;3[; 
>> a\b 
ans = 
-0.2353 
() 
0.4118 


يحسب MATLAB‏ الحل بأداة|» و نلاحظ أن MATLAB‏ عين القيمة صفر 
اخقياريا للمتقيو X2‏ € و لم يتم تحذير المستخدم على أن هذا الحل هو واحد فقط من 
بين عدد غير ima‏ من الحلول . 


(RREF) Ü pad الصيغة الدرجية الصفية‎ (Y, Y.) 
دالة 7 » وهي حول المصفوفة إلى الصيغة الدرجية‎ MATLAB توجد لدی‎ 
وهذه الصيغة تتحقق‎ . Reduced Row Echelon Form (RREF) المختزلة‎ isal 

بالمواصفات التالية : 


$" استخدام برنامج t MATLAB‏ الرياصيات الجامعية 


١‏ - في كل صف غير صفري يجب أن يكون أول عنصر غير صفري فيه 
يساوي .١‏ 

Y‏ الصفوف الصفرية (إن وجدت) يجب أن تكون في أسفل المصفوفة. 

Y‏ 7 إذا وجد صفان غير صفريين OB‏ العنصر المتقدم ١‏ في الصف الأعلى يجب 
أن يكون على يسار العنصر المتقدم ١‏ في الصف الأسفل» ويكون باقي العمود ( الذي 
sel CA TI.‏ 


لنظام المعادلاات fg Ax=b‏ المصعو "t‏ الموسعة augmented matrix [A b]‏ 
بضم المصفوفة A‏ مع المتجه cb‏ وإذا تم تحويل هذه المصفوفة إلى شكلها RREF‏ فيمكن 
استنتاج التالي : 

۰ إذا صدرت [A bl‏ من نظام غير متسق O inconsistent system‏ في مصفوفة 
o S RREF‏ هناك صف لی شكل ]0.01[ 

e‏ إذا صدرت [A b]‏ من نظام consistent system Gur‏ بعدد غير منته من 
الحلول 450 فى مصفوفة المعاملات فی RREF‏ سيكون عدد الأعمدة أكثر من عدد 
الصفوف غير الصفرية؛ أو أن هناك حلا وحيدا للنظام» وسيظهر في آخر عمود في 
RREF‏ . 

٠‏ إذا ظهر صف صفري في مصفوفة فهذا يدل على أن النظام الأصلي يحتوي 
على معادلة مكررة . 

نستنتح من ذلك أن في نظام متسق By Ax=b‏ حال كون A‏ مصفوفة مربعة مع 
وجود حل وحید» فان الشكل RREF‏ للمصفوفة A‏ هو مصفوفة الوحدة. المثال (5,؟) 


Eas يبوصح‎ 


حلول نظام المعادلات الخطية على MATLAB‏ 10 


(T. £) مثال رقم‎ 
:b و‎ A حيث إن‎ Ax-b إذا كان لدينا نظام‎ 
A= 
ó l1 6 
3 5» y 
4 9 2 
>> b-ones(3,1) 
bz 
/ 
Í 
] 


استخدام rref‏ على المصعوفة [A b]‏ يعطى مصفوفة الو حدة» و عمود الحل هو 


:X(5,4) فصله عن طريق‎ Sx العمود الدى‎ 
>> [x, pivot/=rref([A b]) 
32 
1.0000 0 0 0.0667 
0 1.0000 0 0.0667 
7 0 1.0000 0.0667 
pivot — 
i ai 35 
>> X=X(°,4) 
x= 
0.0667 
0.0667 
0.0667 
pivot columns 3) Te أما كن عمود‎ O فيخز‎ rref من‎ ee pivot المتحه‎ Lal 
srank رتبة 4» وللتأكد نحسب رتبة المصفوفة۸ بالأمر‎ CLD استخدامه‎ Keg indices 
>> length(pivot) 
ans = 
3 
>> rank(A) 


GHS — 


3 


y ia‏ استخدام برنامج t MATLAB‏ الرياصيات الجامعية 


استخدام آخر لدالة rref‏ هو إيجاد معكوس Add Sa all‏ وذلك بتطبيق دالة rref‏ 
على المصفوفة الموسعة ل A‏ ومصفوفة الوحدة. فيظهر معكوس۸ ف الأعمدة 


H=rref([A eye(size(A))]) 
i 


I 0 0 = 3 7 
0 1 0 1 -2 -5 
U d DP se X Jd 


>>B=H(:,4:6) 


الأخيرة : 


للتأكد من المعكوس B‏ نحسب A*B=BtA=I‏ : 


أو عن طريق دالة inv(A)‏ التي تطابق المصفوفة 8: 


R= 
-| 3 7 
l -2 -3 
-2 5 HI 
>> B*A 
ans = 
i 0O 0 
0 1 0 
0 0 7 
>> A™B 
ans = 
r 0 Û 
B X Û 
0 0 7 
>> inv(A) 
ans = 


-[.0000 | 53.0000 7.0000 
1.0000 -2.0000 -5.0000 
-2.0000 5.0000 11.0000 


حلول نظام المعادلات الخطية على VV MATLAB‏ 


كما یو جد الآمر rrefmovie‏ الذي يمكن المستخدم من رؤية الصفوفات ASUS!‏ 
في كل خطوة من dee‏ الاختزال» و ذلك بالضغط على أي حرف من لوحة المفاتيح 
cg‏ يصل Axa‏ النهائية Lure‏ 


Original matrix 


A= 
8 ] 6 
3 5 4 
4 Ü 2 


Press any key to continue. . . 
pivot = A(1, I) 


A= 
! 1/8 3/4 
3 5 7 
4 9 2 


Press any key to continue. . . 


Solve Us ( Y, Y, Y) 
الذى يستخدم على المعادلة‎ «solve وذلك بالأمر‎ » exact solutions الحلول الفعلية‎ 


nai)‏ الحلول. 


مال رقم ره T.‏ ( 
لحل النظام في البيئة الرمزية : 


x+2y=8 
3x+4y=18 


24 استخدام MATLAB gl y‏ في الرياضيات الجامعية 
syms x y‏ >> 
[x0,y0|=solve(x+2*y-8,3*x+4*y-18)‏ >> 
x0 =‏ 
2 
y0=‏ 
3 
ست Je‏ نظام المعادللات الخطية Gaussian Elimination ot ge SIP‏ 
المعاملات الضعرية القليلة.وتعتمد الطريقة على عفليات التبسيط SS)‏ الأساسية 
على صفوف النظام (المعادلات) : 
-Y‏ ضورت الصف (Ge p& LIU sty‏ 
-Y‏ التعويض عن صف بحاصل جمع الصف ذاته وصف آخر مضروب بعدد 
LOU‏ 
باختصار» طريقة الحذف الجاوسى تحول المصفوفة الموسعة للنظام إلى مصفوفة 
مثلشة علوية ؛ ومن ثم ستحدم التعويض التراجعى لساب قيم المتغيرات. 


مثال رقم (T.U‏ 
نفرض أن لدينا النظام : 


3x, + 2x, - x, - 10 
-x t3X.42X1,;—5 
X 


Q(—X,—x,--1 


حلول نظام المعادلات الخطية على MATLAB‏ 4“ 


وهنا نستطيع استخدام rref‏ 5 هذه المصفوفة c‏ وهلا مواز لعمل الحذف 


>> A=f3 2 -1 10;-1 3 2 5;1 -1 -I -1]; 
>> G=rref(A) 


c oc 
m oc 
CN V bo 


I 
() 
0 


>> x=G(-:,4) 
x= 

z 

5 

-6 


T3 2x‏ يمحن كتابة m-file‏ لبرنامج Gaussian‏ ]7[ ويتم حفظه تحت اسم 


: function مع مراعاة أن ببدأ الملف بكلمة‎ (Y, Y خوارزمية‎ ( Gaussian.m 


function x=Gaussian(B) 
[n,t]=size(B);G=B; 
for 1=1:n-1 
for j=1:n-1 
m=G(j+1,1)/GQ,1); 
for k=1:t 
G(j+1,k)=GQj+1,k)-m*G(i,k); 
end 
end 
end 
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(QUY خوارزمية‎ 


V.‏ استخدام MATLAB gl y‏ في الرياضيات الجامعية 


الموسعة A‏ للمثال السابق بكتابة Gaussian(A) y!‏ لنحصل على المصموفة à. JI‏ من 
إجراء خطوات e P aes‏ متجه الحل. 


>> Gaussian(A) 
3.0000 2.0000 -1.0000 10.0000 
0 3.6667 1.6667 3853333 
0 () 0.0009 -0.5455 
-2.0000 


5.0000 
-6.0000 


عند وجود العدد صفر على قطر المصفوفة يمكن تبديل ترتيب المعادلات لتفادي 
ذلك قبل إجراء الحذف الجاوسي. وهناك طرق للمحورة pivoting strategies‏ يتم 
إجراؤها مع الحذف الجاوسي ليس فقط el‏ ظهور الأصفار على القطر ولكن لوضع 
أكبر عدد في كل صف على bill‏ وذلك لتحاشي القسمة على عدد صغيرء مھا يۇدى 
ال تراكم أخطاء التدوير» وتدعى هده الطريقة بمحورة جزئية partial pivoting‏ . 
وهناك أيضا حو رة كاملة total pivoting‏ التي يتم فيها el‏ 3 على كل المصفوفة " 
يمكن أن يتم Jobat‏ بين الأعمدة أيضنا حسب الحاجة. يمكن للقارىء m-files; US‏ على 
MATLAB‏ لبرامح الحذف الجاوسي مع محورة جزئية أو كاملة ومن ثم تطبيقها. 


(Y, £)‏ حل نظام المعادلات الخطية بالتحليل Factorization‏ 
توجد طريقة اک مباشرة لحل النظام Ax-b‏ وهى إعادة كتابة المصعوفة4 


حلول نظام المعادلات الخطية على Y! MATLAB‏ 
(Y,£,3)‏ التحليل A-LU‏ 
بحيث LOS‏ مصفوفة مثلثية سفلية ولا مصفوفة مثلثية علوية» وكلاهما 


i; O 99 O lla, My Be 


ha d e 0 0 u e d 
! 12 22 | pg 2H 
A-LUZ|." ." . . mM un. 
- Lo baal Ls ظ‎ 0 0 TEES H yn 


ad‏ طريقة التحليل117 طريقة مباشرة لحل نظام معادلات ALS‏ وتفيد في 
حال وجود أكثر من متجه b‏ في الطرف الأيمن أو إذا كان b‏ غير OY cagla‏ إيجاد 1 و 
YU‏ يعتمد على الطرف الأيمن . الطريقة تعتمد على تحويل النظام Ax-b‏ إلى 
LUx-b‏ » ثم نفرض أن y-Ux‏ لتنتج Ly-b‏ » وهنا نستخدم التعويض الأمامي OX‏ 
L‏ مصفوفة مثلثية سفلية. ولإيجاد متجه الحل x‏ للنظام نستخدم التعويض التراجعي 
لحل U OY Ux-y‏ مصفوفة مثلثية علوية . 

كما أن هناك عدة أشكال للتحليل على حسب اختيار قيم القطر للمصفوفتين 
U VE‏ 

e‏ إذا وضعنا قيم قطر ا العدد 1 فإن التحليل يدعى طريقة دووليتل 
Doolittle's method‏ . 

Crout’s التحليل يدعى طريقة كراوت‎ OU 1 العدد‎ U قطر‎ e 3 إذا وضعنا‎ e 
. method 

e‏ إذا كان النظام متناظر symmetric‏ و positive definite‏ معرفة LLLI‏ أي 
x > 0‏ ۸ '× لكل متجه غير صفرى (x‏ فإ التحليل st, ALL‏ طريقة 
شلو سكي Cholesky method‏ . 


vy‏ اداه j‏ نامج MATLAB‏ في الرياضيات الجامعية 


A-LU نظام معادلات خطية بتحليل‎ dr CU E, Y) 


يقوم MATLAB‏ بإيجاد التحليل AFLU‏ بالأمر UCA)‏ » فمثلاً تحليل المصفوفة 


>> [L,U]=lu(A) 


L= 
1.0000 0 () 
-0.3333 1.0000 () 

0.3333 -0.4545 1.0000 


Q = 


3.0000 2.0000 -1.0000 


( 3.6667 1.6667 
0) 0) 0.0909 


>> b-[l0 5 -1]; 


التالية : 


a المصفوفة‎ lu ينتج‎ 


والمصهوفة العلوية 


إذا حددنا المتجه اليمين b‏ في Ax-b alas!‏ : 


E‏ لكا بالخطوة الأول : حل النظام الأول Ly-b‏ باستخدام sl» yl‏ \ لااد 


>> y=L\b' 
y = 
10.0000 
8.3333 
-0.54535 


: y Ax 


الخطوة الثانية : إيجحاد متجه الحل x‏ بحل النظام Ux = y‏ 


حلول نظام المعادلات الخطية على VY MATLAB‏ 
رال = >> 
X IS‏ 
2.0000- 


3.0000 
-6.0000 


نلاحظ أن MATLAB‏ يستخدم Faso HZ‏ 19 ؛ وإذا أردنا تحليل 


كراوت Crout's‏ فيجب كتابته فى m-file‏ . 


B-L'L )حل نظام معادلات خطية تحليل شلوسكي‎ ۲,٤,۳( 
. chol(A) بالدالة الجاهزة‎ cholesky نخليل شلوسكى‎ MATLAB (3 يوجد‎ 
positive definite و معرفة إيجابيا‎ symmetric ويتوجب على المصفو فة أن تكون متناظرة‎ 


: مثل‎ 
>> B 
B- 
2.0000 0 - 1.00001 Ü 
0 + 1.00001 2.0000 0 
0 0 3.0000 


s Beda. | bol 


>> L-chol(B) 
L= 
1.4142 0 - 0.70711 0 
0 1.2247 0 
0 0 1.7321 
= ل را‎ 
ans = 
2.0000 0 - 1.00001 0 
0 + 1.00001 2.0000 0 


0 0 3.0000 


+ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


(T. رقم ر"‎ Ji 


إذاعرفنا المتجه الأيمن (3 ,2 ,1) = b‏ نستطيع إيجاد حل النظام 0= «Bx‏ بحل 
L'y-b‏ ثم Lx-y‏ باستخدام | : 


t y=L Ib" 
0.7071 
1.6330 - 0.40821 
1.7321 


>> [ly 

GHS — 
0.6667 + 0.66671 
1.3333 - 0.33331 
1.0000 


A = QR |J (Y, £,£)‏ 
يوفر MATLAB‏ دالة #بو لتحليل A-QR‏ بحيث تكون R‏ مصفوفة مثلثية 
علوية و0 مصعوفة متعامدة› (تكون Q‏ متعامدة CO "= ot Id)‏ وليس من 
الضروري أن تكون المصفوفة A‏ مربعة. فيصبح الحل للنظام Ax=b‏ هو SAI‏ 

. Rx - Q'b للنظام‎ 

»4-[4-27:62-3; 34 5]; 
>> [Q.R]-qr(A) 
Q — 

-0.5121 0.6852 0.5179 

-0.7682 -0.0958 -0.6330 

-0.3841 -0.7220 0.5754 
R = 

-7.8102 -2.0486 -3.9691 


O -4.4501 0.0295 
() D 953522 


حلول نظام المعادلات الخطية على Vo MATLAB‏ 


svd القيمة الشاذة‎ Sls (Y,£,0) 
singular value التي تقدم حليل القيمة الشاذة‎ svd دالة‎ MATLAB يوفر‎ 
متعامدة بحجم‎ Ui panas و بحيث تكون‎ mxn بحجم‎ A لمصفوفة‎ A=USV. decomposition 
القيم‎ OUS a mxn ees قطرية‎ S و مصفوفة‎ NXN و۷ مصفوفة متعامدة بحجم‎ » mxm 
على قطر 5 تسمى القيم الشاذة وعددها يساوي رتبة المصفوفة . يعد هذا النوع من‎ 
svd التحليل الأكثر ضمانا ولكنه يحتاج إلى كمية حسابات أكثر من غيره. يتم استخدام‎ 
. والطرق المثلى‎ least squares problems غالبا في حل مسائل أصغر المربعات‎ 
: A للمصفوفة‎ svd He Lt 
>> 4-[123;459;7 11 18;-23 1;7 19] 
A= 
| ثم‎ di; 
4 3 
2 Zr 


0 
Is 
-2 3 l 
/ d M9 


V 


> [u,s,v[—svd(A) 

u = 

-0.1364 0.0871 0.0284 -0.2001 -0.9659 
-0.4069 0.0334 -0.2544 -0.8465 0.2283 
-0.5161 0.2047 -0.1691 0.4656 0.0404 
-0.0511 0.5609 (0.8018 -0.1632 0.1152 
-0.3836 -0.7650 0.5128 0.0000 0.0000 


c= 
27.1420 0 0 
0 6.1825 Ü 
Ü Ü 0.2968 
0 0 0 
0 0 0 
v= 


-0.3706 -0.6816 -0.6309 
-0.4355 0.7275 -0.5301 
-0.8203 -0.0783 0.5665 


VM‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


وإذا أدخلنا svd(A)‏ فنحصل على القيم القطرية فقطء أي القيم الشاذة 
a aa‏ 
svd(A)‏ >> 
ans =‏ 
27.1420 
6.1825 
0.2968 


)0 ¥( طرق Iterative Methods iy y SS‏ 
في حالة وجود أنظمة خطية صغيرة فالطرق المباشرة السابقة َه کوت ساس 
ولكن للأنظمة الكبيرة و ا محتوية على معاملات صفرية عديدة فالطرق التكرارية تكون 
أكثر عملية من ناحية استهلاك ذاكرة الحاسوب والدقة. الطرق التكرارية لحل 
النظام Ax-b‏ تبدأ بقيمة تقريبية ابتدائية x‏ لحل النظام × » وتوّلد متتالية ممأ Lx‏ 
من المتجهات التي تتقارب من x‏ . معظم الطرق التكرارية تحول النظام إلى نظام مكافئ 
بالشكل x = Txtc‏ لمصفوفة مربعة 1 و متجه C‏ . بعد اختيار المتجه الابتدائي “× نقوم 

k=0,1,2,... لكل‎ x 2 Tx? عه وعد‎ day ped) لتجهمات الخلول‎ kes IL sz 
بين المتجهات التقريبية المتتالية أي‎ los كدان اللا ی‎ | ol Rall ني‎ anal 
من بين الطرق التكرارية الأكثر شيوعا‎ .١ لعدد صغير موجب‎ [x -x “| > م‎ 

is Sle 4a,‏ التكرارية Jacobi iterative method‏ و طريقة جاوس سيدال التكرارية 
Gauss-Seidel iterative method‏ . 


-> ع‎ i A A iz ا‎ 
0 


j=l izi C; ii 


وتولد 0 باستخدام ايو لكل toS k=l‏ 


حلول نظام المعادلات الخطية على Y VY MATLAB‏ 


Y Caii) 


i=] 3 
x) ے‎ be) 30ز‎ 
a 


أما طريقة جاوس سيدال فتستخام : 


i-l 
5 (k) y CD ب‎ 
Plax I" Ya a; x; 


k ! 1 9 à 
x) = MENU -12..,n 
dii 


والفرق بين طريقة جاكوبي التكرارية وطريقة جاوس سيدال التكرارية هو أن 
الأخيرة تستخدم القيم الجديدة ل “كلما حسبت. يمكن بريجة الطرق التكرارية في 
m-file‏ ]7[ واستخدامها كدالة للحصول على الحل التقريبي للنظام. الخوارزمية (Y, Y)‏ 
تعطي برنامج GaussSeidel‏ هي : 


function x-GaussSeidel(B,x,tol) 
[n;t]=size(B)} 

b-B(l:n,t); w=l;k=1; 
djil,lintl)=[0 x]; ksktl; 

while w>acc 

for i-1:n 

sum=0; 

for j-1:n 

if 4-11 





(Q0 خوارزمية‎ 


YA‏ استخدام MATLAB gl y‏ في الرياضيات الجامعية 


(T. V) مثال رقم‎ 


5x, —1x, +x, =10 
Ax, T 8x, — x, - 11 


-x +x, +4x, =5 


>> B 
R= 
5 -I J] IQ 
2 & - II 
ل‎ Il 4 5 
>> y 
y= 
0 0 0 
>> tol 
tol = 
1.0000e-006 


نستعمل برنامج جاكوبي LEY‏ حل النظام السابق» بإدخال Jaccobi(B.x,tol)‏ 
(الملحق) [7] بالمدخلات اللازمة» و يعرض MATLAB,‏ النتائح في العمود الأول» رقم 
خطوة التكرار» والأعمدة الثلاثة التالية تعطي إحداثيات متجه JH‏ . 

نلاحظ أن طريقة جاكوبي استغرقت ١٠١‏ خطوة تكرارية لإيجاد لحل 


x=[1.923, 1.076, 1.461]‏ بالدقة المطلوبة. 


Jaccobi(B,x, tol) 
ans= k X; Xə X; 
() () () () 


1.0000 | 2.0000 — 1.3750 1.2500 
2.0000 2.0250 1.0513 1.40635 
3.0000 1.9250 1.0445 1.4984 
4.0000 1.9092 1.0811 1.4701 


V4 


5.0000 
6.0000 
7.0000 
8.0000 
9.0000 
10.0000 
11.0000 
12.0000 
13.0000 
14.0000 
15.0000 


1.9222 
1.9249 
1.9233 
1.9228 
1.9230 
1.9231 
1.9231 
1.9231 
1.9231 
1.9231 
1.9231 


حلول نظام المعادلات الخطية على MATLAB‏ 


1.0815 
1.0766 
1.0763 
1.0769 
1.0770 
1.0769 
1.0769 
1.0769 
1.0769 
1.0769 
1.0769 


1.4570 
1.4602 
1.4621 
1.4617 
1.4615 
1.4615 
1.4615 
1.4615 
1.4615 
1.4615 
1.4615 


للمقارنة eae í‏ الأمر GaussSeidel‏ بالمدخاات اللازمة. ونلاحظ أن طريقة 
الدقة : 


>> GaussSeidel( b,x,tol) 
ans k X; Xə X3 


7 
1.0000 
2.0000 
3.0000 
4.0000 
5.0000 
6.0000 
7.0000 
8.0000 
9.0000 

10.0000 


() 
2.0000 
1.6688 
1.9314 
LUIS 
1.9233 
1.9230 
1.9231 
1.9231 
1.9231 
1.9231 


() 
0.8750 
1.0992 
1.0725 
1.0777 
1.0768 
1.0769 
1.0769 
1.0769 
1.0769 

1.0769 


() 
E333 
1.4424 
1.4647 
1.4610 
1.4616 
1.4615 
1.4615 
1.4615 
1.4615 

1.4615 


وإذا كانت كل من الطريقتين جاکوبی و جاوس سيدال تتقارب من متجه «SAN‏ 
OU‏ جاوس سيدال هو الأسرع» Ss‏ ليو Lao‏ لقو Ld Op Sb cada Sea‏ طرق 
جاكوبي متقارية» ولكن جاوس سيدال متباعدة؛ أو العكس. لنضمن التقارب لكل من 
الطريقتين» يجب التحقق من شرط في النظام وهو أن تكون مصفوفة المعاملات للنظام 


> sl strictly diagonally dominant 43. قطريا‎ : p 9 NXN e Y مر‎ A=(ajj) 


ialt ف الرياضيات‎ MATLAB استخدام برنامج‎ Ae 


Fi 
a;| 4 2 a; 
j=l 


ix fi 


for1=1,2,...,n 








Eigenvalue problem مسائل € الذاتية‎ (Y, 
تظهر مسائل القيم الذاتية في كثير من تطبيقات الجبر الخطي في فروع العلوم‎ 
وهي‎ 4×= À x الطبيعية والبندسة» وصيغة هذا النوع من المسائل العامة تأخذ الشكل‎ 
Ol ونقول‎ mn مصفوفة مربعة بحجم‎ A حيث إن‎ » AJ معادلة جبرية للقيم الذاتية‎ 
للمصفوفة ۸ إذا وجد متجه × غير صفرىي‎ Eigenvalue rs gl قيمة داتية‎ A العدد‎ 
وهي كم إعادة كتابة مسألة‎ Ax- À × بعحيث إن‎ 1 Lt "e يسمي‎ 
هي مصفوفة‎ lO] وهي حيث‎ )4- ADx- 0 القيمة الذاتية على شكل نظام المعادلات‎ 
ويكون هناك حل للنظام إذا وإذا فقط كان )4-21( نظاما شاذا أو‎ . min الوحدة بحجم‎ 
وهذه المعادلة هي كثيرة حدود بدرجة ” في المتغير 2 وتسمى المعادلة‎ . det(A-41)-0 
2,22 .., هي القيم الذاتية‎ ASIN) جذور المعادلة‎ .A ل‎ characteristic equation الذاتية‎ 

,2 ولكن المتجه الذاتي x‏ المقابل لكل قيمة ذاتية :4 ليس وحيدا. 
في برنامح MATLAB‏ نقوم بحساب القيم الذاتية بالأمر eig‏ كما في المثال UI‏ 


(T. 5) رقم‎ She 
: ۸ 43 92,20 La إذا كان‎ 


>> A= [-6.00;11 -3 0;-3 6 7] 
>> [X,D]=eig(A) 
A — 
, () 0.2346 
() 0.8575 -0.5608 
1.0000 -0.5145 | 0.4515 


حلول نظام المعادلات الخطية على AY MATLAB‏ 


D- 

/ 0 0 

0 -3 0 

0 0 -6 
>> lambda=eig(A) 
lambda = 

7 

-3 

-6 


ينتج من الأمر [XD]-eig(A)‏ مصفوفتان X‏ و D‏ الأعمدة في المصفوفة X‏ 
P TI‏ المتجهات الذاتية المقابلة للقيم الذاتية poe T2‏ قط رالمصفوفة D‏ 
ويمكن إيجاد القيم الذاتية مباشرة بالدالة eig(A)‏ فقط e‏ و نخزينها 3( متجه lambda‏ . لإيجاد 
كثيرة الحدود المميزة نوجد أو y‏ المعامللات بدالة poly‏ ثم بدالة poly2sym‏ التى UJ s‏ إلى 
معادلة T‏ ال E‏ 

>> coefChar=poly(A) 
coefChar = 
] 2 -45 -126 
>> CharEq-poly2sym(coefChar) 
CharEq — 
X^3 t 2*x^2-45 *x- 126 
لقد عرضنا في هذا الباب أهم الطرق لحل أنظمة المعادلات الخطية» وقدرة‎ 
القارئ تطوير البرامج التي‎ MAL بصورة عملية و دقيقة.‎ tle | Je MATLAB 
حلول لمسائل‎ sla} عرضت لاستخدامها في تطبيقات أخرى»؛ ومن ثم تسخيرها في‎ 


ارين (Y. V)‏ 
١‏ - أوجد حل الأنظمة الخطية التالية باستعمال دالة V‏ وقارن باستخدام 


المعكوس : 


AY‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


23 —X; توعد‎ --—] 3X, ^k 3X, box; -3 

3x, -3x, + 9x, =0 (> 2x, +3x, +x, = -] (i 
3x, 3x, 05x, =4 xb x dex, 2 

2x, - 3 


X,+3x,—x, =4 
x, +1.5x, 2 4.5 


- 3x, +0.5x, = —6.6 

àx,—2x, x, 4 x, = 0.8 

. إن أمكن‎ A-LU حل الأنظمة السابقة بالتحليل‎ — Y 

-٣‏ حل الأنظمة السابقة GILL‏ الجاوسي. 

Ja sl -ý‏ حل النظام التالي بالحذف الجحاوسي ع مح المحورة TUS‏ وقارن 
JE‏ با حورة الكاملة : 

Oij-L2,..,n لكلل‎ — ay-I/(itj-I) DJ. — Ax-b 

2x, + x, + 4x, =16 


(5 2x; $245 $ XS 9 ( 


ry SZ‏ بود سس رن 


4x, 2x, +x, - 11 
—x,+2x, =3 


X-[L1,]] بالمتجه‎ go 

71 قارن حل النظام السابق بطريقة جاكوبي التكرارية. 

۷- أوجد التكرارين الأولين من طريقة جاكوبي باستخدام x×"=0‏ : 
mE -]‏ 335—331 


3x, * 6x, +2x, 0 (uO -x *10x,-2x, = 7 (| 
3x Fatet 7X;-4 —2x, +10x, 26 


حلول نظام المعادلات الخطية على AY MATLAB‏ 


10x, + 5X, =1 AER meg 
3x, lx, =4x, 225 x Py کک عر وو‎ | 
: (3 1 | (= 
cby d man x =l -y cn oe esu 
=% uox ml X ux Xx ارخ و‎ 


7A‏ أوجد التكرارين الأولين في طريقة جاوس سيدال باستخدام x9-9‏ للأنظمة 


WO) ges) 


حل المعادلآت غير الخطبة على MATLAB‏ 


في هذا الفصل يتم عرض إحدى المسائل الأساسية في الرياضيات» وهي إيجاد الحل 
العددي لمعادلة غير خطية. معظم المعادلات التى تظهر في التجارب العلمية أو à‏ 
الطبيعة هي معادلات غير (Adag‏ وقد تكون المعادلات في متغير واحد أو أكثر, وقد 
تكوة محادلة Boel’‏ أو نظاما من الغادلات. الطرق العددية قرب حل العادلات شير 
الخطية بطريقة تكرارية› ميج اتعارب litte. d‏ عورا وفي بعضها الآخر 
مشروطاً 

إذا فرضنا أن f(x)‏ دالة متصلة» OW‏ العدد o‏ بحيث إن 0= Ma)‏ يسمى جذرا أو 
| للمعادلة 0 = fl)‏ .و يمكن أن يكون الجذر حقيقيا أو مركبا > كما يمكن أن يوجد 
أكثر من جذر. نقدم في معا جاتنا في هذا الفصل طرقا عددية على MATLAB‏ للوصول 
للحلول ذات قيم حقيقية . 


Bisection Method التنصيف‎ à Je )",١( 
هى من أبسط الطرق العددية التكرارية‎ Bisection method ريقة التنصيف‎ 
جذر معادلة» وتحتاج إلى نقطتين ابتدائيتين. تعتمد أساسا على نظرية القيمة‎ oL 


AS 


AU‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


المتوسطة وهي التي تضمن وجود جذر في الفترة التي تتغير فيها إشارة الدالة» بتكرار 
تنصيف الفترات التي حتوي على الجذر يتم التقريب للجذر. 

لتكن fix)‏ دالة der‏ على الفترة [ab]‏ بحيث إن f(b) 9 fla)‏ مختلفتان في 
الإشارة» أي 0 > fla) fib)‏ فإنه يوجد على الأقل عدد cE [a,b]‏ بحيث 0 = fc)‏ . نأخذ 
في البداية الفترة EF [a,b]‏ إن flay)‏ و fibi)‏ مختلفتان في الإشارة:» ثم حسب 
02 +رط) حره ونحسب fic)‏ . بعدها نقوم باختيار الفترة [anc]‏ أو [c bi]‏ بحيث تكون 
fla)‏ و fle)‏ أو flbi)‏ و fier)‏ مختلفتين في الإشارة. نكرر العملية حتى التوصل للجذر 
أو لجذر بالتقريب المطلوب. نحاول حصر جذر واحد فقط في الفترة المنصفة. وإذا كانت 
الفترة التي تحتوي على الجذر غير معلومة» نستطيع الاستعانة بالرسم plot‏ لتحديد 
تلك الفترة. نخزن فى mfile MATLAB‏ والذى يحتوى على الخوارزمية (Y, V)‏ 
bisect‏ ]7[ » ويتم استخدام البرنامج lols‏ مع تحديد المعادلة» فترة التنصيف والدقة 


Ld ghia 


مثال رقم (PN)‏ 
أوجد جذر المعادلة 1=0-×2-× في الفترة ]2 ,1.5] بطريقة التنصيف . 


مال : 
خن المعادلة m-file t‏ يدعى fun‏ : 


function f=fun(x) 
f7x.^3-2*x* -I; 


حل المعادلات غير الخطية على AV MATLAB‏ 


function solution-bisect(fun,a,b,acc) 
fa=feval(fun,a); 

fb=feval(fun,b); 

while abs(b-a)>acc 

c=(at+b)/2; 

fe=feval(fun,c); 


Dc: 





(Y, 3) خوارزمية‎ 


ثم ندخل في نافذة الأوامر : 
—-bisect('fun', 1.5,2,1e-2)‏ 


solution — 
1.6211 


وتظهر النتيجة بقيمة الحذر. طريقة التنصيف بسيطة و دائمة التقارب ولكن من 


Newton Method طريقة نيوتن‎ (Y. Y) 
الطرق التكرارية لإيجاد‎ Sealy 4-54 هي من‎ Newton method طريقة نيوتن‎ 
وتولد مع التكرار‎ Xo طريقة نيوتن لفرض نقطة بداية‎ CLA. fix) = 0 جذور المعادلة‎ 
فيه‎ Le إلى الجذر الفعلي. إذا كانت النقطة الابتدائية قريبة‎ Las التي‎ xy امتتالية‎ 
طا (جذر غير مكرر) أي أن تكون مشتقة الدالة عند‎ IT cp الكفاية من الجذر‎ 


الجذر م LS‏ غير صفرية (0 + OW (p)‏ طريقة نيوتن تتقارب بسرعة. تحتاج الطريقة 





لقيم الدالة fix)‏ و المشتقة الأولى (6'/ » وتعتمد هندسيا على المماس ل EIS. fl)‏ 
الطريقة أيضا بطريقة نيوتن - رافسون .Newton-Raphson method‏ 

إذا كانت fix)‏ دالة متصلة وقابلة للانتقاق على [a,b]‏ و0 + fI)‏ لكل 
x Elab]‏ » فإن طريقة نيوتن توّلد متتالية (xu)‏ المعرّفة بالتالي: 


C na‏ رد ر 
"ot f)‏ 





نبرمج الطريقة باسم Lg 52 newton‏ في m-file‏ ]15[ (خوارزمية (Y, Y‏ ويتطلب 
الأمر تحديد الدالة» والمشتقة» ونقطة البداية ويمكن تحديد قيمة الدقة المطلوبة tol‏ بحيث 


يتم التوقف عن حساب قيم جديدة في المتتالية x,‏ إذا : 


f(x”) 
f'(x,) 


« tol 





function[r,it] -newton(fun,dfun,x,acc) 
it=0; 

xÜ-x; 
d=feval(fun,x0)/feval(dfun,x0); 
while abs(d)>acc 


x1=x0-d; 





FY) خوارزمية‎ 


حل المعادلات غير الخطية على , AA MATLAB‏ 


(V. Y) رقم‎ Slee 
جذر المعادلة‎ sled (Y, Y) استخدم البرنامج 0 المعطى في خوارزمية‎ 
X977 بنقطة المداية‎ x^-10x^4-29x-20—0 


ا محل : 


نخزن الدالة و المشتقة في m-files‏ باسم fun‏ و 4/1/1 : 


function f=fun(x) 
f—x.^3-10*x.^24- 29*x-20; 


function f=dfun(x) 
f73*x.^2-20*x4 29; 


av‏ »و نقطة (LIAS)‏ والدقة 





نطق الأمر gn newton‏ نحديد الدالةء وا 


المطلوبة» ليعطى نتيجة ste i‏ خطوات التكرار : 
>>/[r,it]=newton(‘fun', 'dfun'’,7,.00005)‏ 


p = 


5.0000 
It = 





ويمكن تعديل الطريقة ادا OLS‏ وناك صعوبة dat || t‏ بالتعويض x || ioi‏ 


: بقيمة الميل» وتصبح‎ 
x x Vea 72M Oa) 
F Ga (| وح‎ Os) 


تسمى هذه الطريقة بطريقة القاطع Secant method‏ ومحتاج إلى نقطتي بداية ؛ 


a.‏ استخدام بر نامج MATLAB‏ في الرياضيات الجامعية 


وتوجد نسخة من البرنامج في الملحق ]7[ » عند استخدام برنامج القاطع secant‏ على 
نفس المثال و بنقطتي بداية 4 و 4.5 وبنفس الدقة et‏ على : 


>>sol=secant(‘fun',4,4.5,.00003) 
sol= 
5.0000 
t= 
8 
التقارب بهذه الطريقة أبطأ من طريقة نيوتن» و كلا الطريقتين بطيئة في حال‎ 
3 pa سن‎ SÍ ر‎ Aie aa |p gle أو إذاكاتات‎ Levens عدا م‎ da Fp كانت القن‎ 
واحدة كجذر للمعادلة ). إذا كانت الجذور مضاعفة فيمكن معالحة الأمر وتسريع‎ 
: ومعادلتها‎ Modified Newton method نيوتن المعدلة‎ à Je التقارب باستخدام‎ 
X = y — Ff M (x) 
"nl — ""n - 2 ! u— 
T x, ) v fix. If (x. ) 


3b» 5l s f" (x) الوحيد في طريقة نيوتن المعدلة هو حساب المشتقة الثانية‎ GLI 
]7[ كمية العمليات الحسابية. يستطيع القارئ استخدام البرنامج الموجود في الملحق‎ 





: modifiedNewton باسم‎ 


(V, P) مال رقم‎ 


f(x) = “راسم‎ In(x) 


ol 2G‏ الجذر 1-م مكررء فنطبق برنامج طريقة نيوتن المعدلة على 


حل المعادلات غير الخطية على , à | MATLAB‏ 


معادلة» وهو يحتاج إلى إدخال الدالة» والمشتقة الأولى» والمشتقة الثانية» ونقطة 


>> [sol,it] -modifiedNewton("fun','dfun', 'ddfun',.9,.00005) 
sol — 

1.0000 
ii = 


3 


للمقارنة» نستخدم برنامج نيوتن على نفس الدالة» وبنفس نقطة البداية 
والدقة. نلاحظ أن طريقة نيوتن احتاجت إلى 17 خطوة ولم تصل إلى نتيجة دقيقة. 
وبذلك نستنتج أن طريقة نيوتن تحتاج إلى خطوات أكثر لتصل للجذر بسبب كون 
الجذنمكرراء Gg‏ طريقةانيوتة tell tall‏ فقط ثلاث i glad‏ 


>> [sol it] -newton('fun','dfun',.9,.00005) 
sol — 
0.9999 
it = 
I 
MATLAB إيجاد جذور معادلات باستخدام دوال جاهزة في‎ (Y, Y» 
تساعد في إيجاد حلول لمعادلات خطية‎ dake دوال جاهزة‎ MATLAB يقدم‎ 


وغير خطية منها : 


(Y, Y, 5)‏ ذالة fzero‏ 
الدالة الجحاهزة fzero‏ تقوم بجساب جذور المعادلات > وهى عبارة عن 95 Aa‏ 


من الطرق العددية التي تعطي نتائج مضمونة. ويتم استخدام الأمر بعد تعريف الدالة f.‏ 


inline à‏ أو m-file‏ ثم Ls‏ الفترة التي نحتوى على الحذر والدقة المطلوبة PUE‏ مک 


>> f-inline(x^3-2*x^2-x4 2) 

Inline function: 

Fe) = x^3-2*x^2-x-2 
>>sol=fzero(f, [0 1.5], le-15) 
sol = 

] 


إذا لم يكن لدان dec‏ فعلى عحدد جبريا مثل الدالة cos(x)-x‏ فيمكن þat ol‏ 
على تقريب للجذر بالأمر fro‏ : 


>> function z—f(x) 
z = cos(x)-x; 
>> format long 
>> sol-fzero( f, [0 2], le-15) 
sol = 


0.73908513321516 


يمكن استخدام الأمر ero‏ بإدخال الدالة ونقطة البداية فقطء ولكن قد لا 
يصل للجذر خاصة إذا كان الجذر قريبا من نقطة غير معرفة بالنسبة للدالة. وإذا لم يتم 


تحديد الدقة المطلوبة فان MATLAB‏ يحسب بالدقة 22106 . 


>> f—inline("sin(x)-.5*x") 


Inline function: 

f(x) = sin(x)-.5*x 
>> sol-fzero(f, 1) 
sol — 


1.59549426703598 


حل المعادلات غير الخطية على , MATLAB‏ 


AY 
roots Us (Y, Y^. Y) 


توجد دالة أخرى جاهزة في MATLAB‏ تستخدم ole y‏ أصفار كثيرات الجدود 
تدعى roots (c)‏ » حيث إن المتجه c‏ هو متجه معاملات كثيرة 2543-1 


مثال رقم ر٤‏ ۳) 


اوجد جور x^-2x^x-2-0‏ بالدالة roots‏ حيث متجه المعاملات 
ofl -2-12]‏ : 


>> roots([1 -2 -1 2]) 
ans — 
- 1.0000 
2.0000 
1.0000 


solve 4l» (Y Y^, Y^ 


el ERPE MB ONE‏ دالة Symbolic algebra Spe Sl Hl t solve‏ حل المعادلة 
السابقة (كثيرة الحدود) كالاتى : 


>> syms X 
>> sol-solve(x^3-2*x^2-x12) 
sol = 
-] 
1 
2 
: cos(x)-x-0 أو لتقريب حل للمعادلة غير الخطية‎ 


>> Syms x 
>> sol-solve(cos(x)-x) 


sol = 
0.73908513321516 


ac‏ استخدام MATLAB gl y‏ في الرياضيات الجامعية 
(Y, £)‏ حل نظام معادلات غير الخطية 
إا OLS‏ لديا نظام مين المعادلات غير الخطية فيمكن حلها باستخدام طريقة 


f(xy) - 0 
f; y) - 0 


e‏ إن Hy) s fiy)‏ دوال متصلة ونمثل النظام بالمعادلة F(x)=0‏ حيث إن 
FEVE), Al xy)‏ و نبحث عن الحل (x y)‏ الذي يحقق المعادلتين. 
نحتاج في طريقة نيوتن لحل هذا النظام إلى المشتقة باستخدام المصفوفة 


: Jacobian matrix الحاكوبية‎ 


dh df 


C: م‎ 
I= ar x 
x ð 


لتصبح صيغة المعادلة التكرارية حل النظام بطريقة Cp ee‏ 4 بنقطة بداية x"‏ 


7 ane d مناسبةٍ لكل‎ 


" m) x (n-1) _ J( x Dl Fix (nl) ) 


ولتفادى حساب معكوس مصفوفة الحاكوبية فنستخدم D‏ 


J(x "n (n- 1) = -F(x ee 
x [mnj 5 m- Bl) 


حل المعادلات غير الخطية على Ao MATLAB‏ 


وهي الصيغة التكرارية المستخدمة في الخوارزمية (Y. Y)‏ لطريقة نيوتن eU‏ 
معادلات غير خطية التي تدعى ]15[ newton?‏ . وعند استخدامها تتم المناداة 
بالمدخلات : abs‏ البداية المناسبة cy)‏ والمعادللات» والمشتقات» وعدد المتغيرات»؛ 
والدقة المطلوبة. 


function [xx,it|-newton2(x,f.1f,n,tol) 
it=0; 

XX=X; 
fr=feval({,xx): 
while norm(fr)>tol 


dE X 


E =| L4 
AE , احج‎ = d pista hod = 
$ | $ r "T 
5 | E - í 





T i 
pL کہ‎ “ 
s! D 





(Y, Y) خوارزهية‎ 


مثال رقم ره (T.‏ 
في نظام معادلات غير خطية كالآتي : 
x^ y^ — 6‏ 
Xy =]‏ 
ا لحل يمثل بنقاط التقاطع المبينة في الشكل رقم (YN)‏ الذي حصلنا عليه بالأوامر 
التالية: 
ezplot('x*2  y^2 - 16)‏ >> 
hold‏ >> 


Current plot held 
>> ezplot('x*y-1^) 


استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


نخزن المعادلات في m-file‏ يدعى fl‏ : 


function Ffl (v) 
x—v(1);y7v(2); 
f—zeros(2, I); 
f(1) -x^2*y^2-16; 
f(2)-x*y-1; 
Df2 آخر يدعى‎ m-file والمشتقة الجاكوبية في‎ 


function jf=f2(v) 
x—w(1);y—v(2); 

jf=zeros(2,2); 
UA, ) -[x* 2 y*2]; 
Jf 2.) - Dy x]; 


X y-1 = 0, x^«y^-16 





الشكل رقم .)",١(‏ نقاط التقاطع لنظام المعادلات غير خطية ر مثال رقم (Y.O‏ 


۹٦ 


حل المعادلات غير الخطية على , a V MATLAB‏ 


E‏ خدم برنامج 2 LA ee newton‏ نقطة البداية المناسبة cy)‏ المعادلاات من 


ملف fl‏ » المشتقات من ملف £2 » عدد المتغيرات 2 » والدقة 0.00005 : 


>> [soll,iter] -newton2([4 IJ", 'f1',12,2,0.00005) 
soll — 

3.992] 

0.2505 
iter = 


3 


ونحصل على أحد الجذور )0.2505 3.9921( بعد BW‏ تكرارات. وباختيار نقاط 


>> [sol2, iter] -newton2([.5 3]', 'f1',f2 2,0.00005) 
Sol2 — 

0.2505 

3.9921 
iter = 

4 


>> [sol3,iter]=newton2([-4 0]', 'f1','2',2,0.00005) 
Sol3 = 

-3.992] 

-0.2505 
iter = 

3 

>> [sol4, iter] -newton2([0 -4]', 'f1','f2* 2,0.00005) 
Sol4 = 

-0.2505 

-3.992] 
lier = 


3 


۹۸ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


مثال رقم ر" (P.‏ 


sinx E EST 
3x42y-z --1 
X4y--z-3 


ا حل : 
نخزن المعادلات في m-file‏ يدعى101/و المشتقة الجاكوبية في mfile‏ آخر يدعى 


: £201 


function q—f101 (p) 
x-p(I);y-p(2);z-p(3); 
q-zeros(3, I); 

q(1)—sin(x) +y*2+ log(z)-7; 
g(2)=x*3+2%y-2°3+ 1; 
q(3)—xty*z-5; 


function jq—f201 (p) 
x=p(1);y=p(2);z=p(3); 
jq-zeros(3,3); 

jJq(1,:) -[cos(x) 2*y liz], 

jq(2.:) -[3 (Z^y )*log(2) -3*(2^2)]; 
jq(3.) -[H 1 1 J; 


نستخدم برنامج 2 newton‏ مع doll lol dbs wu‏ )0,222(( وغدد 
المتغيرات OG‏ والدقة 0.001 . لنحصل على الحذر( 2.005 , 2.3959 , 0.5991( وبعد 


i cS às yo 
[x,it]=newton2({0,2,2]',101',f201',3,.001) 


y= 
0.599] 
2.3959 
2.0050 
it = 
3 


حل المعادلات غير الخطية على MATLAB‏ ۹۹ 


(Y.e)‏ تمارين 

١-استخدم‏ طريقة التنصيف ا KY‏ جذر المعادلة e-2-x‏ على الفترة 
La [-3, -2]‏ .^10 . 

5- استخدم طريقة Aa,‏ التنصيف لإيجاد جدر Ny ul‏ بالدقة 107 ١‏ 

x-2"=0 0<x <I (Î 


x'-2x-4x*4x*4-0 -1<x<0,2<xS3,0<x<2,-2< x <-I (c 
Y استخدم طريقة نيوتن لإيجاد جذور المعادلات في التمرين رقم‎ -Y 
[1, 3] sal le x-3x-] المعادلة‎ i> ol ey استخدم طويقة تيون‎ - 5 
. X971.5 ونقطة بداية‎ 
2.5 بنقطة بداية‎ V7 7 أوجد قيمة تقريبية بطريقة نيوتن للجذر‎ - 
.]0,1[ في‎ sin(x) , e* أوجد نقطة التقاطع للدالتين‎ -T 
€ -x-1=0 للمعادلة‎ x-0 الحذر‎ SUE Y استخدم طريقة رباعية التقارب‎ -V 
للمعادئة‎ jt J! لااد‎ secant method استخدم طريقة ة القاطع‎ -A 
واستخدم طريقة التنصيف لإيجاد نقطتي البداية.‎ fix) =-x-cos(x) 
لإيجاد الحذر الموجب للمعادلة‎ secant method استخدم طريقة يقة القاطع‎ - 4 
. 81.1 xo71.2 بنقطتي بداية‎ eo =O 
عند‎ x Inx -Inx Nl المعادلة‎ pi> استخدم طريقة نيوتن المعدلة لإيجاد‎ i 
.p71 
10 حل النظام التالى بطريقة نيوتن بنقطة بداية )1,1( و بدقة‎ — Y 
Ax? + y=6 
xy ='l 
: غير الخطي‎ alla x استخدم طريقة نيوتن بنقطة بداية 0="× لإيجاد‎ -١ 


Yn‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


4x: — LUX, PI +8 = 0 


1 ظ و‎ 
Jan + 2X) — 3x; +8=0 


A> 91 = Y‏ نقطتي التقاطع بين المعادلتين وارسم للتأكد من موقع التقاطع بدقه 
107 
-X (x, +1)+2x, =18‏ 
(xp T+ (x -6) = 25‏ 


ada) 


حساب التكاضل والتكامل كي MATLAB‏ 


تقدم في هذا الفصل طرقا عددية لتقريب أهم مبادئ حساب التفاضل والتكامل 
Calculus‏ ونعرض إمكانات MATLAB‏ في تبسيط هذه الطرق العددية التي تعتمد على 
تعريف الدوال في هيئة جداول بيانية متقطعة» وذلك ربما لعدم وجود صيغة محددة 
للدالة أو لصعوبة الاشتقاق أو التكامل بالطرق المعتادة. من مزايا برنامج MATLAB‏ أنه 
يستطيع التعامل مع البيانات مهما كان حجمها كبيرا وبطرق دقيقة جدا. بالاستعانة 
بالؤإمكانات القوية للرسم على MATLAB‏ نستطيع إعطاء هذه البيانات تمثيلا Lis‏ 
لتسهيل تحليلها واستخراج خواصها مثل الاتصال» والقيمة العظمى والصغرى ؛ 
وتحديد قابليتها للاشتقاق والتكامل» وغيرها من الخنواص. كما سنعرض مواضيع في 
حساب التفاضل والتكامل في عدة متغيرات فى الجزء الأخير من الفصل. 

يعد مفهوم النهاية من المفاهيم الأساسية في الرياضيات وعلى وجه الخصوص 
في حساب التفاضل والتكامل. فالمسائل الأساسية في علم التفاضل والتكامل مثل إيجاد 
المشتقة عند نقطة أو إيجاد المساحة تحت منحنى دالة cle‏ تتركز حول مفهوم النهاية. 


ya‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


Sequences and Series التتاليات والمتسلسلات‎ ),5١١ 

cuv c£,3,3) 

المتتالية غير المنتهية Infinite sequence‏ هي دالة GILE‏ الأعداد الكلية ومداها 
الأعداد الحقيقية أو الأعداد المركبة وتكتب ( (a,‏ .مع أن MATLAB‏ لا يتعامل مع 
المتجهات غير المنتهية لكن Se‏ أن نختار عددا كبيرا جدا من الحدود يصل إلى 10° 
وهذا يكفي لنلاحظ الصورة العامة للمتتالية في الرسم. أما في البيئة الرمزية Symbolic‏ 
Algebra‏ فيمكن التعامل مع ole‏ غير المنتهية و A 9 Ol Obl eS! Clie US e‏ 

التمثيل بالرسم يعطي الشكل العام للمتتالية وطريقة تقاربها إن وجد (الشكل رقم 
CE,‏ ونقوم برسم المتتاليات على شكل نقاط بعد LAE‏ عدد الحدود .plot(a, ,'.') n‏ فعند 


i des الع نلاحظ من الرسم أن‎ 50 i aun wot, i JU رسم‎ 
ظ‎ 3n * 4 J, 


تتقارب من 1.6 ويمكن حساب النهاية بالأمر syms ¢ limit‏ : 


>> n=1:50 
2—uq—(5"n-IL/(3*"nt4); 

>> plot(a,'.') 

> > SFS A 

>> limit((5*n-1)/(3*n--4),n,inf 
ans = 

5/3 


حساب التفاضل والتكامل فى y QU MATLAB‏ 


The sequence (5n-1/3n+4) 
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E | 50) 


3n+ 4), 
(E, 1) مثال رقم‎ 


إحدى أكثر المتتاليات Lely)‏ في التطبيقات الرياضية هي متتالية فيبوناشي 


Sad es "y وتعر‎ Fibonacci sequence 


Ja = Lal n=l n = 3,4,... 
: n-20 LAF مع‎ AS lg VL (C£, Y ويمكن رسمها (الشكل رقم‎ 


IE‏ اک د 
for n=3:20‏ >> 
j= f(n-2)*f(n-1)];‏ 
end‏ 

>> plot(f,'.') 


Ya‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


Fibonacci sequence 


=] 

oS 

5 
oy 





الشكل رقم .)٤,۲(‏ متتالية فيبوناشي. 


Y)‏ المسلسللات 


معهوم Je laus a‏ غير المنتهبة. i infinite series‏ > هو متتالية 
| 


للمجاميعالخز «sequence of partial sums — (s,); å$‏ بحيث s = > d,‏ 
ميع ! ,2.4 
ويوجد 3( MATLAB‏ الأمر cumsum‏ الذي يقوم OLS‏ هذه يودب فمثلا 
| ")1-[ 
للمتسلسلة po‏ و و يمكننا تعريف متتالية المجاميع الجز 
ادم 





>> n=1-100: 

>> gq-(-I).^(n-1)./4.^n; 
>> s—cumsum(a); 

>> plots," 


حساب التفاضل والتكامل فى jao MATLAB‏ 


من الشكل رقم SF)‏ نستنتج ol‏ المتسلسلة هى متسلسلة هندسية geometric‏ 
series‏ وتتقارب إلى 0.2 .ق بيثة الحساب الرمزئ LESE‏ حساب مجموع اناسل 


البندسية العامة الذي Yr"‏ يساوي 1_ إذا 1>|م| باستخدام الأمر 
0 


l-r 
n SVSH Hi 


>> SVMS FH 

>> s=symsum(rn,n, 0, inf) 
ç= 

-I/(r-1) 


وقي JU‏ السابق الحد الابتدائي 1/4 = ۾ و 4/[- = 0r‏ ليصبح المجموع : 


>> s—symsum((-1)^(n-1)/4^n,n, l inf); 
>> double(s) 
ans = 


0.2000 


A sequence of partial sums for a geometric series 





الشكل رقم (EY)‏ متهالية المجاميع | 22 “Gal, = [Y‏ 


l Á 
e 


Ya‏ استخدام برنامج t MATLAB‏ الرياضياتت الجامعية 


هناك نوع آخر من المتسلسلات هو المتسلسلة المتذبذبة alternating series‏ مثل 


| Pe a gas | ob ii 
(£5) ويمكن رسم المجاميع الجزئية المئة الأولى ونلاحظ من الشكل رقم‎ > $C à 
2 - 


أنها متقاربة. 


The sequence of partial sums for alternating series 
چ ل‎ — -— — - — ] 5 








الشكل رقم (EE)‏ متتالية المجاميع لمتسلسلة متذبذبة . 


Numerical Differentiation التفاضل العددي‎ (E.F) 


بصورة عامة المشتقة للدالة fi)‏ عند النقطة x‏ تعرف : 


f'(x)slim 


لاجم 


fx h) - f(x) 
h 


ISA هيد‎ pe SU Lus E Lad ols) تعمل على‎ Soil dtl GUI coa y O] 
القيمة الصغيرة و المناسبة. التفاضل العددي يعد من الطرق غير المستقرة لتراكم اخطاء‎ 
صغيرة ؛‎ h التدوير عند تصغير المقدار ۸ وبذلك لن يعطي تقريبا أفضل بمجرد اختيار‎ 


حساب التفاضل والتكامل في Y. V MATLAB‏ 


ولكن يجب البحث عن المقدار # الصغير والذى يحافظ على استقرار الطريقة. علما أننا 
نع الطرق العددية مستقرة stable‏ إذا أجرينا تغيرات بسيطة فى الشروط الابتدائية» مما 
يؤدي إلى تغيرات بسيطة في النتائج النهائية. 


Divided differences 4) 3! الفروق‎ )4 Y, Y) 

الفروق 45571 divided differences‏ هي إحدى الطرائق العددية المستخدمة في 
تقريب الدوال بكثيرات الحدود» ولبا عدة درجات P3 3 sls‏ الصفري للدالة f‏ 
Gly x; Ame fld. f[x Jaf (x) 9» xiJ3à— t‏ 
الجزئي الأول بالنسبة xid‏ و ر × ) حيث إن m xh‏ ربد ) هو: 


J (Xin ) i f (x) 


Xu = X; 


i 


rake 3 Xi | = 


أى قيمة تقريبية للنهاية ام تخدمة في تعريف م شتقة i rikal Je f à Mad!‏ وبيدلك 
تساعد الفروق الجزئية في تقريب المشتقة . الأمر 417 في MATLAB‏ يعطي الفروق 
الحزئية للمتجه» فمثلا : 


x =/1279 10]; 
>> y = diff(x) 


yc 
| 35 3 ] 

يعطينا الفروق الجزئية للمتجه .)10 9 7 12( مع ملاحظة أن المتجه الناتح أقصر من 

المتجه الأصلى. 

مثال رقم Y)‏ £( 


e A> 700 نفرض أن لدينا متجها من‎ sin(x) الأولى للدالة‎ Aa All Lit 


yprime= diff(y)./difflx)  مادختساب بالفروق الجزئية قيمة تقريبية للمشتقة‎ Om a 


doc‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


يظهر تطابق المتجهين COS (X)‏ من اة الأعيلة والمتجه yprime‏ من الفروق 


>> x-linspace(0, 2*pi, 700); 
>> yprime-diff(y)./diff(x); 
>> plot(cos(x), :r) 

>> hold 

Current plot held 

>> plot(vprime) 

>> hold off 


Numerical derivative of sin (x) 


yprimae 


— -—— COS (x) 





الشكل رقم )0,£(. التفاضل العددي للدالة sin(x)‏ . 


الطريقة السابقة لتقريب المشتقة هي من أبسط الطرق وتستعمل فقط 
Crp, xoth oda‏ ولكن هناك طرقا أخرى تستعمل ثلاث LLB‏ أو أكثر لتعطي 
حلولا أدق. وهذه الطرق تُشْتق من متسلسلة تايلور أو من كثيرة الحدود لاجرانج 
Lagrange polynomials‏ التي سيتم عرضها بالتفصيل في فصل الاستكمال. 


REREN‏ دواد اشن أشهر الدؤال وا کر ها EED‏ خصوصا ف 


حساب التفاضل والتكامل فى ١ . 5 MATLAB‏ 


التقريب والاستكمالء LEY‏ دوال متصلة» ولسهولة حساب كل من مشتقاتها 
وتكاملاتها. الموضوع الذي سنتوسع بعرض تطبيقاته في الفصل السادس. من كثيرات 
الحدود التي تستخدم في التقريب متسلسلة تايلور» وهي طريقة أساسية في التحليل 
العددي لتقريب الدوال» وتُعرف كثيرة الحدود تايلور ).م من nis JE‏ للدالة f‏ 
حول xo‏ بالتالى : 

[a,b] غلى الفقرة‎ tee SOY متصيلة و جميع المشتقات.‎ ls f > >a 
GBS x بين مدو‎ Cd >» [ablex فلكل‎ [ab] e Xo )و‎ f eC" [a,b] ) 
: حيتث: إل‎ M-RE) HRS T3) 


y w PO C8 P 


2,)00 f6«)4- (>+ (x—xy +. (x) = (x—X) 


(nd) y e 
MEC) 


nd 

A — 

-— (Xxx) 

ويسمى R „ (x)‏ الحد الباقى (او خط القطع ( truncation error‏ المرافق ل pfx)‏ . ويطلق 

على المتسلسلة اللانهائية التي pet‏ عليها بأخذ نهاية pi)‏ عندما « تؤول إلى 

مالانهاية بمتسلسلة تايلور f AMA‏ حول sxo‏ 

مجموع منته كمجموع لمتسلسلة لانهائية. و يوفر MATLAB‏ في البيئة الرمزية syms‏ 

إمكانية كتابة متسلسلة تايلور Taylor series‏ لدالة ما وحول نقطة محددة. فمثلا De»‏ 
متسلسلة تايلور من الدرجة الخامسة للدالة f(x) =sinx‏ وحول » -8 . 

>> syms X 

>> t5=taylor(sin(x), pi, 6) 


15 = 
-x+pi+ 1/6*(x-pi)^3-1/120*(x-pi)^5 


Y.‏ استخدام MATLAB gl y‏ في الرياضيات الجامعية 


للحصول على طرق عددية لتقريب المشتقة نحتاج ثلاث نقاط أو أكثر لنشر 
الدالة f‏ بواسطة كثيرة الحدود تايلور من الدرجة n‏ عند م ومن ثم حساب كثيرة 
الحدود عند نقاط مختلفة ( th‏ مد أو xo-h‏ ...) . وبعمليات جبرية بسيطة مثل الجمع 
أو الطرح لهذه المعادلات الناتجة Se‏ الوصول للصيغ المختلفة. كما أن طريقة 
اختيارالنقاط يعطي طرقا مختلفة لتقريب المشتقة» فمثلاً قانون الفروق الأمامية 
jos forward differences approximation‏ عليه باختيار NEM bui‏ الأمامية Xn‏ 
xpth, xy*2h‏ ومقدار الخطوة 0 <۸ : 


f'n) = 1-3 (%) +4 f(x +h) f(x% + 21:([ + T SOE) 


ويدعى Op‏ المروق الخلفية backward differences approximation‏ في حالة 
Ah x0‏ 

كمايوجد قانون الفروق الوسطية central differences approximation‏ حين 
تتوسط نقطة الاشتقاق النقطتين xoth‏ و xo-h‏ 


E "I | Lv f — þh h (3) 
f "(x)= Lf (xo +1( - fes - n -— F^) 


كما توجد طرق عددية لتقريب المشتقة الثانية : 


f(a) = s fes 7-208) f + (¢ ) 


ونلاحظ في هذه الصيغ من الحد الأخير( حد الخطأ ) أن الخطأ يتناسب طرديا 
مع í h‏ أو يمكننا القول إن جميع هذه الصيغ هي بخطأ برتبة Oh’)‏ 


١١ ١ MATLAB t التفاضل والتكامل‎ cL 


ويمكن الحصول على تقريب لمشتقات أعلى» وذلك باستخدام متسلسلة تيلور 
بدرجات مختلفة وعند نقاط مختلفة. وقد تم اختيار صيغ مختلفة لإيجاد المشتقات الأربع 
الأولى وجمعها في برنامج واحد باسم diffgen‏ [15] (ويمكن للقارئْ حساب صيغ 
أخرى وبرمجتها في الخوارزمية حسب احتياجه) وهي : 


/"):,( ع‎ f= 2h) -8 f (xy — h) + 8f (x) + h) - f (x, + 2)] 
f") fly — 2h) +16f (x, —h)—30f (x,) +1 6f (x +h) - f(x,  2h)] 
f" [f(x -39)- fs 2H) +1 fx -1 3/0 +1) 8f +24) fios 30) 


Poda -f —3h) +1 2f (x, —2h) -39f (x) —h)-56f (x, ) -39f (x, +h) 
4 2f (x, -2h)— f (x, +3A)] 


عند استخدام الخوارزمية Ln (EN)‏ على قيم المشتقات الأربع الأولى st‏ 
دالة عند النقطة الحددة من المستخدم c‏ علما أنها كلها صيغ ذات خطأ برتبة Oh’)‏ 


function v = diffgen(fun,n,x,h) 

if ((n==1)|(n==2)|(n==3)|(n==4)) 
c=zeros(4,7); 

0; c(l,j=[ 01-8 0 8 -I 


16 30- 16 1- 0 حدم - 0];1 





١ ١ *‏ استخدام برنامج t MATLAB‏ الرياضياتت الجامعية 


مثال رقم Y)‏ ,£ ( 


استخدم البرنامج 71 المعطى في خوارزمية )8.1( وذلك لإيجاد المشتقات 
الأربع الأولى للدالة DAL pag”‏ 


. 5x10” ولقيم #المتناقصة من 0.05 إلى‎ x= 
: ا حل‎ 


X‏ ين الدالة في الملف 400/ء و بتكرار الأمر ) diffgen(f400' n, Lh‏ تظهر 
النتيجة في الجدول رقم :)4.١(‏ 


الجدول رقم .)4,١(‏ نتائج مثال Y)‏ ,£( . 


h Ist derivative — 2nd derivative 3rd derivative 4th derivative 
0.05000 10.985535 109.97680 989.39027 7918.78457 
0.00500 | 1.00000 | 10.00000 989.99994 7919.99989 
0.00050 11.00000 | 10.00000 990.00001 7919.94855 
0.00005 11.00000 | 10.00000 989.98409 0448.17533 


- والدقةيودات تتناقص عند أصغر‎ c LAS colas ظط أن النتائج‎ Wa 
i بعص | لصية‎ o^ و ذلك پسسب أ خطاء التدوير الناتجة‎ h = 5x10? 


Y, Y)‏ ,£( دالة diff‏ الرمزية 


فى بيئة الحسابات الرمزية Symbolic Algebra‏ يوفر MATLAB‏ أوامر LiL‏ 


حساب التفاضل والتكامل في ١ ١ + MATLAB‏ 


المشتقات بدرحات (dake?‏ ونستطيع استخداح الأمر syms à diff (f)‏ لإيجاد Az A ll‏ 
الأولى للدالة f‏ وللحصول على المشتقة n‏ ندخل difffin)‏ . 


(E, £) رقم‎ JU» 
: فيتم حساب المشتقة الأولى بالأوامر التالية‎ f= xH) كان لدينا الدالة‎ 15] 


>> SVMS X 

>> f-x/(l^x^2); 

>> fderiv=diff()) 

fderiv = 
I/(1--x^2)-2*x^2/(1--x^2)^2 


ونخسب A‏ تقة الثانية باستخدام )2 diff,‏ ` 


>> fderiv2-—diff(f,2) 
fderiv2 — 
SOLE ZIP e XINI وخر كر‎ 


Ll‏ إذا كانت الذالة فى أكثر من متقين» pied! arch! tt Cd‏ اراد حساب 
AAE dard‏ 


(£,9) رفم‎ Sle 
JF xy/(btx للذالة‎ x للمتغير‎ Ak احسب المشتقة الثالتة‎ 


ا حل : 
بالأمر( 2:43 Lod‏ على المطلوب : 


+ 5 ؟ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


>> SVMS X y 
>> fex*ty/(14x^2); 
>> fderiv3x-diff(f, x, 3) 
fderiv3x = 
48 *y/(12-x^2)^3*x^2-6*y/(1--x^2)^2-48 *x^4d *y/(1 +2) 4 


هناك تطبيقات عديدة على الاشتقاق في علم poled‏ « ونقدم Lad‏ يلي بعض 
الأمثلة على ذلك. 


(E Y رقم‎ She 
f(x) 2 2# أوجد نقاط الانقلاب للدالة‎ 
X 
: UH 


نستخدم الأوامر diff x1)‏ و diff x2).‏ لحساب المشتقت 
للدالة : 


الأولى والثانية 





>> f-(3*x^2-2)/x^3; 

>> fderivl —diff(f, 'x', 1) 
fderiv] = 
6/x^2-3*(3**x^2-2)/x^4d 

>> fderiv2—diff(f. x',2) 
fderiv2 = 

-30/x^3-- 12*(3*x^2-2)/x^5 


: ولإيجاد جدور المشتقة الثانية نستخدم الأمر‎ solve(fderiv2) 


>> solve(fderiv2) 
ans = 

2 
-2 


فتحصل على t Áo‏ 2 فق وسيب A-2), f(2)‏ باس تخداح 
feval(f, 2)‏ و )2- feval(f,‏ : 


١١ ه‎ MATLAB حساب التفاضل والتكامل في‎ 
>> f-inline(f) 
Inline function: 


f(x) = (3. *.^2-2)./x.^3 


>> feval(f.2) 
ans — 
1.2500 


>> feval(f,-2) 
ans = 
-1.2500 


نستنتج أن الدالة مقعرة لأعلى في كل من )2,0( و )2,0-( € ومقعرة لأسفل في 
كل من (2-,5-) و )0,2( . ومن ثم OU‏ النقطتين (2,1.25) و (1.25-,2-) » OASES‏ نقطتى 
انقلاب «JI‏ كما هو موضح بي اله لشكا رقم )2,1( 


(3 x?-2)/x? 





الشكل رقم (ÉT)‏ رسم للدالة في مثال e‏ )8,1( 


١١1‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


(EV) مثال رقم‎ 
f(x) = 3x" - 8x + 6 -1 القيم القصوى المحلية للدالة‎ A= a) 


ra 
: ezplot بدالة‎ C£,V الحل بالرسم (الشكل رقم‎ ER 


>> syms x 
>> f-3*x^4-8*x^3-6*x^2 1; 
>> ezplot(f) 
if Wa ونحسب المشبقة الأول‎ 


>> fderiv1=diff(f,'x', 1) 
fderivl = 
LD ¥x43-34 Fy D+ 7 2 Fy 


3 x"-8 x746 x*-1 





-6 -4 -2 0 2 4 6 
X 


الشكل رقم .)٤.۷(‏ رسم للدالة في مثال رقم (£,V)‏ 


نحصل على أصفار المشتقة الأولى بالأمر : 


حساب التفاضل والتكامل فى MATLAB‏ ¥\\ 


>> solve(fderiv1) 
ans = 


0) 


1 
1 


وبذلك تصبح 0 و 1 هما النقطتان الحرجتان» ونستخدم اختبار المشتقة 
لتحديد القيم القصوى AS‏ : 





>> نوع ربع‎ x', 2) 
fderiv2 = 
36*x^2-48*x- 12 


>> df2=inline(fderiv2) 
42- 
Inline function: 
df2(x) = 36.*x.^2-48.*x4 12 


و محسب (0)" £ : 


>> feval(df2,0) 
dns — 
12 


ومن ثم OB‏ 1 -(0/ هي قيمة صغرى Ale‏ ولكن 70 )1( f‏ و بذلك فإن 
اختبار المشتقة الثانية يفشل في تصنيف NOCTEM JI‏ | الأولى والرسم 
البياني يبينان أن fl)‏ ليست قيمة قصوى علية. 





(EN) رقم‎ She 
: أوجد المستقيمات المقاربة الأفقية و الرأسية للدالة‎ 


;3 ظ 
f(x) = ”‏ 
IX A‏ 


Bm‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


* ا حل‎ 
>> limit((3*x)/sqrt(x^2--x),x, inf) 
dans — 
3 
>> limit((3*x)/sqrt(x^2-x),x,-inf) 
ans — 
-3 


ما أن أصفار المقام تساعد في إيجاد المستقيمات المقاربة الرأسية» و مجال الدالة 


هو(ه,0) oo, - 1) U‏ -) فنكتفى بحساب النهايات التالية : 


>> limit((3*x)/sqrt(x°2+x),x, 0) 

dis — 
() 

>> limit((3*x)/sqrt(x’2+x),x,-1, left') 
dns — 


-Inf 
وبذلك يصبح 1-= × هو المستقيم المقارب الرأسي الوحيد.‎ 


Integration التكامل‎ (£,Y) 


Riemann Summation QU y واب جموع‎ ١ ) 


يتم تقريب المساحة تحت منحنى الدالة f(x)‏ - « وعلى الفترة [a,b]‏ بالمجموع : 


R, = > fav 


حساب التفاضل والتكامل في BE MATLAB‏ 


حيث إن عدد الفترات ١‏ هوعددموجب» وطول كل شريحة 
هو Ax = (b— a)/‏ » والنقاط x, =atiAr‏ لكل «,...,1-0,1 » باستخدام تجزيءِ 
منتظم للفترة xk 9 [a,b]‏ هي نقطة اختيارية في الفترة 3-1 45 i‏ - يسمى Rn‏ بمجموع 
ريمان Riemann Sum‏ والمساحة تحت المنحنى للدالة fix)‏ تعرّف بنهاية هذا المجموع (إن 
وجدت) في حال أن م تؤول إلى ما لانهاية nao‏ عندما توجد النهاية فان 
المساحة تحت منحنى الدالة f(x)‏ ما بين a‏ وط تعرف بالتكامل احدود Definite Integral‏ 


A 3‏ له: 


[/ cod: 


(ED رقم‎ Je 
وعند النقطة الاختيارية‎ ] 0, m] على الفترة‎ cos(x) للدالة‎ ok) ft cU 
:boz و‎ 2-0 » n=100 المجموع يصبح بتحديد‎ OU المحددة بمنتصف الفترة»‎ 


>> deltax=(pi-0)/100 
deltax = 
0.0314 


>> x-deltax/2:deltax:pi-deltax/2; 
>> rn=sum(cos(x)) *deltax 
n= 

2.441 5e-017 


Numerical Integration التكامل العددي‎ ETT) 
أو أنه ليس من السهل الحصول على الدالة‎ daa | أصلية و‎ als وجود‎ e Jud v T 


تو" ١‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


الأصلية» by‏ هذه OIL‏ نستخدم طريقة عددية لتقدير التكامل. برنامج MATLAB‏ 
Ji‏ من أقوى الأدوات التى تقرب Lote‏ التكامل CLES Bale Stes ogo) 5 s.l‏ 
JU AJ‏ مع امكانية برمجة الطرق العددية المعروفة للتكامل العددي بسهولة. 


Composite Simpson Rule 45 M o pune’ قاعدة‎ (£, Y, Y, V) 
من أكثر الطرق العددية انتشارا لساب التكامل وتقديره هي طريقة سمبسون‎ 
معرفة على الفترة‎ y — f(x) فإذا كان لدينا الدالة‎ . Composite Simpson's Rule المركبة‎ 
عدد زوجي ؛ و‎ N= 27 منتظما على م فترات جزتية بحيث إن‎ Lyf وعرفنا‎ [a,b] 
هو طول كل فترة » فإن طريقة سمبس ون المركبة تقدم تقريبا‎ h-(b-a)/n 

: للتكامل بالمجموع‎ [rogas 


ni n! 2—l 


$, = SUHAS (ara) + 2 Df (Xx) + SO) 
k-—01..,ns x,—-atkh حيث إن‎ 


apts‏ برنامج 5 بحساب التكامل بطريقة سمبسون المركبة ]15[ في 


function s=simpsons(fun,a,b,n) 

h=(b-a)/n; 

<=[a:h:b|; y=feval(fun,x); 

v=2* ones(nt+1,1); 

v2=2*ones(n/2,1); 
Y(2:2:n)2v(2:2:n) v2. 


nt et ia 






= 
T 
Tala! 


‘nevi: 





( £, Y) خوارزمية‎ 


حساب التفاضل والتكامل في ١*١ MATLAB‏ 
Shee‏ رفم )+ (EN‏ 
1 ستخدم برنا مح t simpsons‏ حساب قيمة تقريبية للتكامل 


. n-40 )دم | ب‎ =f) 
ü 


: E 


>> sn-simpsons( os. 0 pi,4 0) 
SH = 


].3545e-016 


Composite Trapezoidal Rule 4S Ji قاعدة شبه المنحرف‎ (£ Y, Y. Y) 


Composite Trapezoidal Rule‏ التى تقسم المنطقة تحت المنحنى إلى أجز As el‏ شكل 


5 
شبه المنحرف» ولتقريب التكامل [f Ode‏ تستخدم القانون: 
MEE.‏ 
fou) + FO)‏ 500)*22- 4 
izl‏ 
وس اسان 5 L‏ 
حيث إن —= h‏ و xi-atih‏ لكل «...,1 ,0 -1. 
Fl‏ 


البرنامج trapezoidal‏ المعطى في الخوارزمية cS sx [7] (E, Y)‏ على طريقة شبه 
co RI‏ وهو يحتاج إلى تعريف الدالة المراد حساب تكاملها في m-file‏ باسم fun‏ 
والحدود ة وط و عدد العترات -n‏ 


YYY‏ استخدام برنامج MATLAB‏ الرياضيات الجامعية 


function tp=trapezoidal(fun,a,b,n) 
h=(b-a)/n; 
t=(feval(fun,a)+feval(fun,b))/2; 


T= 


nas. 





= " 8 1 E. 
pes Eam of 
T | — mF 


(£, Y) خوارزمية‎ 


: عند 5-100 كالاتى‎ JUL مقارنة قمنا باستخدام برنامج 1 لنفس‎ U 


>> Ip—trapezoidal("fun',0,pi, 100) 

713951e-016 

قمنا باستخداء عدد فترات أكثر في طريقة شبه المنحرف» وذلك بتحديد 

n= 0‏ لتحسين دقة الحل» ولكن كما نالاحظ OLS‏ طريقة سمبسون المركبة تتفوق. 

ويرجع ذلك التحسن لكون طريقة سمبسون المركبة تستخدم كثيرات حدود لاغرانج 

من الدرجة الثانية في تقريب الدالة المراد إيجاد تكاملها وهذا بحسن الخطأ بصورة 

ملحوظة إذ إن الخطأ يكون برتبة O(h*)‏ « بينما قاعدة شبه المنحرف المركبة تستخدم 
كثيرة حدود لاغرانج ALL‏ وهناك يكون الخطأ برتبة (0)۸7 . 





Y, Y)‏ ,£( دوال MATLAB‏ الجاهزة للتكامل العددي 


Ve T.‏ برمجة كل الطرق العددية في m-file‏ ومن ثم استخدامها مثل طريقة 
«Gaussian Quadrature‏ و لكي MATLAB‏ يوفر دوال جاهزة للتكامل تدعى quad!‏ 


حساب التفاضل والتكامل في yyy MATLAB‏ 


ys. التكامل‎ LEY يستخدم طريقة سمبسون المركبة‎ quad Jl. quad8 و‎ quad 
« Adaptive Recursive Newton Cotes كوتس الثامنة‎ Vr يست خدم طريقة‎ 6 
adaptive Gauss/Lobatto qudrature rule بيع جاوس — لوباتو‎ p بيستخدم‎ quadl t 39 
ANAS تلك الأوامر الجاهزة للتكامل العددي يتوجب على المستخدم تسمية‎ COE Y 


وحدود التكامل JJ! o C‏ 43 المطلوبة. 


CE, ١١ر رقم‎ Ji 


أوجد قيمة تقريبية للتكامل fe™ de‏ بخطأ أقل من 0.0001 . 
0 


: II 


ندخل الخطوات &JUJI‏ لتعريف الدالة exp(-x°)‏ 3 الملف fun‏ : 


>> guad(fun'.0,2,.0001) 


ans = 

0.5821 
>> quad8(‘fun',0,2,.0001) 
dris — 

0.6821 


يمكننا أيضا حساب تكامل لدالة معرفة بالأمر @ ومن ثم تطبيق تكامل تربيع 
جاوس بالحدود المطلوبة : 


>> F-(a(x)1J/(x.^3-2*x-5); 
O = quadl(F,0,2); 
>> Q = quadl(F,0,2) 


-0.4605 


‘ys‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


Y, £)‏ ,£( دالة int‏ الرمزية 
توجد طريقة أخرى في MATLAB‏ لحساب التكامل وهي باستخدام البيئة 
الرمزية syms‏ و الأمر int‏ كما في JU‏ )5,17 


( £, ١ Y) مثال رقم‎ 





] 
نمحسب التكامل به — ]| بالأمر int‏ بعد تعريف المتغيرات x, y‏ 


1/2 z 


2 


متغيرات رمزية حقيقية : 


>> syms x y real 
>> f=x/(1+x*2) 
I 

aff x2) 


عند كتابة الأمر نحتاج إلى إدخال الدالة» وحدود التكامل : 


>> b-int(f,0.5, 1) 
h — 
3/2*log(2)-1/2*log(5) 


الأمر 6 فلع رض النتائج على شكل Ae‏ عشرى : 


>> pretty(b) 

3/2 log(2) - 1/2 log(5) 
>> double(b) 
ans = 


0.2350 


حساب التفاضل والتكامل في Yo MATLAB‏ \ 


في حال احتواء التكامل على أكثر من متغير» فيمكن حساب التكامل بالنسبة 





5 
: ندخل‎ ? 5 dx فلحسات‎ int Fl a المطلوب بتحديد ذلك‎ wa 
PLFA ١ للمتغير‎ 


>> f=y/(1+x^2) 
f= 


y/(1-x^2) 

>> bm, x3 
des 

atan(5) *y- 1/4*pi *y 


. 
فيمكن‎ E 


Wi 





أما إذا كانت حدود التكامل معطاة بدلالة b ga‏ مثل dx‏ 
حساب التكامل بنفس الطريقة وتظهر النتيجة بدلالة 8 وط : 


>> syms x a b real 

>> f-(x^5)f(I-x) 

x^(I/2)/(1--x) 

>> b-int(f, x a,b) 

b = 

2*b^(1/2)-2*atan(b^(1/2))-2*a^(1/2)- 2*atan(a^(1/2)) 


وفي حال التكامل غير المحدود cos(x)dx‏ ×| فيمكن حسابه بالأمر int‏ دون 


إدخال e‏ دود التكامل ` 


>> g-—inl(x^3*cos(x)) 


x3 *sin(x) + 3*x^2*cos(x)-6*cos(x)-6*x*sin(x) * C 


YA‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


s 


Ul‏ التكامل على فترة غير منتهية فيمكن حسابه بتحديد ذلك في الحدودء فمثلا 


التكامل )dx‏ "امي | يتم حسابه با لخطوات التالية : 
0 


= = SVMS X 
>> int(exp(-x^2),0, inf) 
ans — 

1/2*pi^(1/2) 


)£,£( تطبيقات على التكامل 


من العلوم والبندسة» نقدم بعض هذه التطبيقات الرئيسة في الأجزاء التالية . 


Area between curves مساحة مناطق محدودة عنحنيات‎ )5,5,١١ 


أحد التطبيقات الشائعة على التكامل هو حساب المساحة المحصورة ببيانى دالتين 


b 
من الرسم‎ |f@ - g(x)dx استخراج صيغة التكامل‎ ex» E) 9 fx) VEL 


حيث يكون بيان الدالة fix)‏ أعلى من بيان الدالة )ع وحدود التكامل يتم إيجادها من 
حدود المنطقة المطلوبة. ويتطلب أحياناً حساب LW‏ التقاطع بين الدالتين. 
المنطقة المحصورة بين بيانى الدالتين 7-3 = g(x)‏ و fix) = In(x)‏ يمكن حساب 


b 
LU و طمن‎ a ويتم حساب حدود التكامل‎ . [Inx-x^ + 30 مساحتها بالتكامل‎ 


التقاطع عن طريق حل المعادلة x-3 =In(x)‏ وذلك باستخدام دالة fzero‏ كما يمكن 
استخدام الرسم للتعرف على المنطقة امحصورة بين المنحنيين : 


حساب التفاضل والتكامل في VY V MATLAB‏ 


>> b-fzero(x.^2-3-log(x)', 1.5) 
b —1.9097 
> > a-—fzero( x. ^2-3-log(x) m 002 AM 
ni 
0.0499 
>> x=a/2:.01:b+a/2; 
>> plot(x,log(x),x,x.^2-3) 


: (E, A) الشكل رقم‎ UJ. ليظهر‎ 


Inx and x*-3 





الشكل رقم (5,8). المساحة المحصورة بين منحنيين. 


باجراء التكامل على L2 syms‏ | على المساحة المطلوية : 


>> SVMS X 
>> A-int(log(x)-x^2- 3,a,b); 
>> double(A) 
ans = 
d 50342 


VYA‏ استخدام MATLAB gl y‏ في الرياضيات الجامعية 


Solids of Revolution حجوم الأجسام الدورانية‎ (٤, ٤,۲( 
حساب الحجم الناتح عن دوران منحنى دالة حول أحد المحورين × أو « يتطلب‎ 
qeu eh والمعرفة‎ y - x2 لرسم الحجم الناتج عدن وزان‎ Wia حساب التكامل.‎ 
حيث 50 هى عدد النقاط على‎ cylinder(y, 50). نستخدم الآمر‎ x حول ال محور‎ [1,3] 
حيث 50 هى‎ cylinder(y, 50) للحصول على مصفوفة النقاط › نستخدم الأمر‎ » coll 
ينتج الرسم‎ surf عدد النقاط على المنحنى » للحصول على مصفوفة النقاط › والأمر‎ 
يعرف حور الدوران بقياس من‎ cylinder. أمر‎ tesis ولك‎ COLA المطلوب (الشكل رقم‎ 

: int YL ثم — حجم الجسم الدورانى‎ a gal 0 
>> x=linspace(1,3,50); 
Rn i 
>> [d,e.f] -^cylinder(y, 50); 
>> suri(d,e,f); 
>> Syms x 
>> int(x.^242,1,3) 


ans = 
38/3 


Rotate x*--2 about x axis 


0.8 


0.6 


| 
| 
| 
| 
| 
i 
| 
0.4 | 
| 
| 
Q.2 | 

| 

| 

l 





الشكل رقم )3,£( الحجم الناتج عن دوران 42 yox‏ حول محور × . 


١ ؟‎ 8 MATLAB T التعاضل والتكامل‎ cL 


الدالة بدلالة المتغير لا لتصبح x-(y-2)^‏ معرفة على الفترة ]3,11[ وحسب قيمة 
التكامل بالأمر int‏ لنحصل على الحجم المطلوب (الشكل رقم CE Y‏ : 


>> y-linspace(3,11,50); 
>> xx-sqrt(y-2); 

>> [a b c]=cylinder(xx,50); 
>> surf(a,b,c); 

>> int(sqrt(y-2),3,11) 





ans = 52/3 
Rotate sqrt(y-2) about y axis 
T~ 
0.8 ., 
0.6 .. 
5 | 
0.4 | 
0.2 - 
OL 
4 1 
2 mas 4 
0 ا‎ f = 35 2e 
x diis 5 


الشكل رقم .)4,٠١(‏ الحجم الناتج عن دوران (y-2)^.5‏ حول محور 3 . 


Arc length طول القوس‎ )5,5 Y^) 
يعطى‎ ax x xb spas على‎ y = y(x) Arc length طول منحنى الذالة‎ 
: بالقاعدة‎ 


YT‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 





وقي معظم الحالات تستعمل طريقة تقريبية لحساب التكامل لصعوبة إيجاد 
التكامل الفعلى. 


(E Y) رقم‎ Ji 
: لإيجاد طول قوس منحنى الدالة‎ 


-1 2 * €2 على الفترة‎ yox *3x 5+1 


Pi T fenchk نستخدم الأمر‎ NE ثم‎ diff y/diffx للتفاضل بالأمر‎ caai jaiii 
يعطي طول القوس‎ quad وبذلك الأمر‎ .m-file الدالة لم تكتب في‎ OS وذلك‎ quad 
: المطلوب‎ 


>> x-linspace(-1,2,400); 
a de, 393 x02 ts 


>> dy=diff(y); 
> >dx=diff(x), 


> >ds=sqrt(dx.*2+dy.”2), 
>> quad(fcnchk('sqrt(1--(3*x.^24-6*x-5).^2)'),-1,2,.0001) 
ans = 

20.5314 


حساب التفاضل والتكامل في ITA MATLAB‏ 


Surface of Revolution اجه سطح الدوراكت‎ CEEE) 

ينشأ سطح الدوران surface of revolution‏ من دوران منحنى دالة ilas‏ حول 
مستقيم في المستوى. فإذا كان المنحنى g(y)ox‏ حيث إن ع دالة ناعمة ( الدالة وم: 
الأولى متصلة C‏ على [c, d]‏ » فمساحة السطح الناتجة من دوران الجزء من المنحنى بين 
»= ر وه = برحول عور × بافتراض أن 0 cz‏ تحسب بالقاعدة : 








( £,  £) رقم‎ Sho 
۷3 /=رإلى‎ cp x= 2 Iny احسسب مساحة السطح الناشيئ عن دوران بيان الدالة‎ 


. × -ترحول حور‎ Vi 


ا حل 





>> SVMS y 
>> s—int(y*(14-4/y^2)^(.5), l,sqrt(3)) 
¢ = 
]/2*7^(1/2)*3^(1/2) + 4*log(2)-2*log(-3^(1/2) + 7^(I/2))- I/2*5^(1/2)- 
2*log(5^(1/2)- I) 


>> $-2*pi*s 
5 = 


2*pi*(1/2*7^(1/2)*3^(1/2)-4*log(2)-2*log(-3^(1/2)- 7^(1/2))-1/2*5^(1/2)- 
2*log(5^(1/2)- 1)) 


>> double(S) 
ans = [11.1692 


)0,£,£( مساحة سطوح دوراك المنحنيات الوسيطية 


Area of Surfaces of Revolution of parametric curves 


ليكن المنحنى as ts b,y- gt) x fi) :C‏ منحنى ناعما ونفرض أن C‏ لا 











: هي‎ 
3 dx V. dy Y 
S - مس اجر‎ || — | H] dt 
" jet) F - 


(£, ١ رقم ره‎ Ji 
. × jas احسب مساحة السطح الناشئ عن دوران المنحنى حول‎ 


C: OS tEmn/3 , y-3sin(t) , x= 3cos(t) 


pi /3 


سبي التكاهل S=27 | 3sin(f)49sin" (f) + 9cos (t) df‏ للحصول 


على مساحة السطح الناشئ عن دوران o‏ : 


TE MATLAB T والتكامل‎ Me ue حساب‎ 
>> SVMS f 
>> s=int(3 *sin(t) *(9*sin(t)^2--9*cos(t)^2)^(.5),0, pi/3) 


A = 


9/2 


>> S=2*pi*s 
S = 9*pi 


)0,£( حساب التفاضل والتكامل متعدد المتغيرات Multivariable Calculus‏ 
لتعريف lo‏ معرفة في متغيرين مثل " f(x,y) = ye"‏ وعلى SE‏ مستطيل 
Biol 3 SAS‏ بالقيم a <x<b,c< y xd‏ فمك m-fileGUS‏ : 


function z=f(x,y) 
z=y. *exp(x.^2--y.^2); 


كما نستطيع تعريف E All»‏ متعيرين اشا عن طريق الأمر inline‏ : 


>> f-—inline( y. "expix. 2 نر‎ ^2), x5 yj 


Inline function: 
foy) = y. *exp(x.^2*y.^2) 


أما رسم le‏ في f(xy) Vy‏ = 2 فهو رسم لسطح pall à‏ |‘ والخطوة الأولى 
لرسمه هى تحديد Bus‏ المجال بتكوين مصفو فة e meshgrid "i‏ استخدام surf a!‏ 
She‏ رقم (ENF)‏ 
x‏ 
Uu‏ 2 کے = f(x,y)‏ يمكن رسمها مع أن الدالة غير متصلة عند )0,0( 
A +y‏ 


ولكن بإضافة et eps‏ على الشكل رقم :)5,١١(‏ 


ا استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


>> [x,y[ ^meshgrid(-2:.1:2); 
>> surf(x,y,(x. *y.^2)./(x.^2--y.^4 + eps)) 


Xy^/x 2+ y^ 





الا رقم (E, ١‏ دالة في متغيرين . 


في بعض الحالات نريد أن نرسم Ub‏ معرفة على JLE‏ غير المستطيل مثلا على 
قرص. ولإتمام ذلك يجب إنشاء مصفوفة meshgrid Ue‏ بدلالة ا محاور القطبية ۲,0. فعلى 
سبيل المثال إدخال الخطوات التالية يتم بها رسم الدالة g(rÓ) = r sin(0) +r°cos(30)‏ 
(الشكل رقم CENY‏ والمعرفة على قرص الوحدة و بمركز في نقطة الأصل. 


>> r=linspace(0, 1,21); 

>> theta=linspace(0,2*pi, 41); 
>> [rr,t] -meshgridtr,theta); 

>> x=rr. *cos(t); 

>> y-rr.*sin(t); 

>> z=rr.*sin(t)+rr.’2. *cos(3*t); 
>> surf(x,y,z) 


حساب التفاضل والتكامل في ١ Yo MATLAB‏ 


Graph of function over the unit disk 






4 | 

ع إن 2- 

1 Mc | 

G5 Semet RN: — à 
0 ت ا‎ 3 | — : 0 E "n m 0.5 
ELS E oL: 0 
adiit سو‎ -0.5 
É 4 


الشكل رقم ls (£, Y)‏ معرفة على قرص الوحدة. 


sphere الأمر‎ )4,5,١١ 
التي تقوم بإنشاء مصفوفة‎ sphere دالة‎ MATLAB من ضمن الدوال الجاهزة في‎ 
النقاط للكرة مع تحديد عدد الخطوط الطولية والعرضية للسطح» فمثلاً لرسم الكرة‎ 
الممثلة بالسطح 9 = 7+ ”+× وبتحديد عدد الخطوط 30 نقوم بالأوامر التالية‎ 

(الشكل رقم (EY.‏ 


2[x,y,z] ^sphere(30); 
>> SUF 3*x; 3 "y, 3*2) 


Y YA‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


The sphere x4 y*.z^-9 





الشكل رقم (EAT‏ رسم الكرة. 


(£,0,Y)‏ رسم المتجهة المماس لمنحنى في المستوى 
ay‏ سم المتجهة المماس لمنحنى 3 السا Tangent to a plane curve J‏ نستخدم 
المحاور القطبية لرسم ا | (cost, 2sint)‏ ومتجه المماس )1/6( (-4sint+ 2cost)‏ وندخل 


ما يلى : 


>> t=linspace(0,2*pi); 
>> x=4*cos(t); 

> >y=2*sin(t); 

>> xdriv—-4*sin(pi/6); 
>>ydriv=2*cos(pi/6); 


بالخطوات ASUS)‏ لتنتج الشكل رقم )1$ ,£(: 





%line parameters 


حساب التفاضل والتكامل فى TY MATLAB‏ 


>> s=/0 IJ; 

>> vl=4*cos(pi/6)+s. *xdriv; 
>> y2=2*sin(pi/6)+s. *ydriv; 
>> plot(x,y,v1,v2); 


Tangent to curve 
oo oF oo 





05 
ol 


-0.5 





!2. 
E‏ 
الشكل رقم )£ i (£, V‏ المماس لمنحنى في المستوى. 


(£,9,Y)‏ رسم المستوى المماس لدالة 
المستوى المماس Tangent plane‏ للدالة z—f(x,y)‏ عند النقطة (a,bfía,b))‏ هو 


رسم للتقريب الخطى Linear approximation‏ المعطى بالمعادلة : 


L(x,y) = f(a,b)* (x-ajf.(a,b)* (y-b)f,(a,b) 


۳۸ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


فمثلا لرسم الدالة ر+ - على الفترة × > 3- و 3 >ر وجزء من المستوى 
loll‏ ات اله لنقطة ) 1,1,2 ( E r^‏ ' التقريب الخطى عند )1,1( E‏ بالمعادلة : 


L(x,y) —f(1, D+ (x- DAA D+ (y- DAG D) = 242(x- D + 20-1) 


ونستخدم أداة الدوران rotate‏ في نافذة الرسم للحصول على أفضل زاوية 
لعرض الرسم (الشكل رقم (ENO‏ » والآمر hold on‏ لعرض الدالة و المستوى المماس 
x,y] »meshgrid(-3:.1:3);‏ > > 


5surfíx,y,x.^2--y.^2); hold on 
7 [u,v] -meshgrid(-2:2:2); 


--[-2t:2"m2*y; 
7surf(u* l,v* I,L);hold off 


Tangent plane to z=f(x,y) 





الشكل رقم .)5,١5(‏ المستوى المماس للدالة =X +y"‏ 


حساب التفاضل والتكامل فى ١ MATLAB‏ 


(5,5.5) أوامر الرسم في البيئة الرمزية 
تو nee‏ امر 3( syms‏ لر سم دوال في متغيرين مثل .ezsurf, ezmesh ,ezcontour‏ فعلى سبيل 
JEL‏ الدالة exp(x-V)cos(x)‏ ترسم بالأمر ezmesh‏ (الشكل ر قم 71 بإدخال الأو امر التالية : 


>> SVMS X y 
>> f=cos(x) *exp(x-y^2); 
>> ezmesh(f) 


cos(x) exp(x-y?) 


400 





¥ x 
. ezmesh الشكل رقم )6( رسم دالة باستخدام‎ 
نعرض ف الحزء التالى بعض التطبيقات الرياضية المختلفة في حساب التفاضل‎ 


والتكامل في عدة متغيرات. 


)0,0,£( حل نظام معادلتين في متغيرين 
لإيجاد حل نظام معادلتين 3 متعيرين : 
f(x,v)-0‏ 
g(x,y)-0‏ 
e [eS‏ الأمر SYMS T solve‏ . 


Toa‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


مثال رقم CE V)‏ 
رض آدبا Hab‏ 


fy) = y-4 +3 
g(x,y) = x^/4 ry^-] 


عبد زسم المنحنيات 0 - gay) = 0 3 fixy)‏ نلاحظ وجود أربعة جذور عند تقاطع 
المنحنيين a,b,c,d‏ ]9[ (الشكل رقم EY‏ ولحساب الجذور الأربعة ندخل الآتي : 

>> SYMS XV 
>> f=y-4*x^2+3; 
>> g—25*y^2ry^2-I; 
>> [xx,yy] ^solve(f. رع‎ 
xx = 

-I/I6*(I190-- 14* 17^(1/2))^(1/2) 

I/16*(190 14* 1 7^(I/2))^(1/2) 
-I/16*(190-14* 17^(1/2))^(1/2) 

1/16*(190-14*17^(1/2))^(I/2) 
yy = 

-1/32+7/32*17°(1/2) 

-1/324 7/32*1 71/2) 
-1/32-7/32* 17^(1/2) 
-1/32-7/32* 17^(1/2) 
>> double([xx yy]) 
ans — 

-0.9837 0.8707 

0.9837 0.8707 
-0.7188 -0.9332 
0.7188 -0.9332 


حساب التفاضل والتكامل في MATLAB‏ 


1/4 x*4+y*-1 = 0 
y-4x 243-0 




















X 


الشكل رقم (É, Y V)‏ رسم نظام دالتين في متغيرين. 


)4,0,1( التفاضل فى عدة متغيرات 
Oli‏ المشتقات 553-1 f(x,y) = sink ty) WWW fo fa, fy‏ على syms‏ 


يتم بالأمر diff, x)‏ مع تحديد المتغير ودرجة (SUA‏ 


>> SVMS X y 
>> f-sin(x^2*y^2);fx-diff(f. x) 
2 cose aty ITX 
>> fxx-diffif, x',2) 
fex = 
-4*sin(x^2-* y^2)*x^2-* 2*cos(x^2-t y^2) 
>> fxy-diff(fs, y) 
fy = 


-A*sin(x^2--y^2) *y*x 


Y RN‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


حقل المتجهات المعرف على مجال الدالة faxy)‏ يعرف بالتدرج Gradient‏ 
gradf Gs y) = ) 2 f)‏ أو c Vf Gy)‏ وهو عند كل نقطة يتعامد مع المنحنى 
السوي level curves f‏ عند تلك النقطة. MATLAB‏ يساعد في رسم تدرج حقل 
المتجهات Gradient vector field‏ و المنحنيات السوية للدالة. 


( £. 1A) رقم‎ (Jio 
ر, × > 2- يمكن رسم المنحنيات السوية و‎ >2 ge fiy) =x +57 DW بالنسبة‎ 
.contour و‎ quiver بالأوامر‎ (EYA (الشكل رقم‎ Vfl = (2x Oy) رسم التدرج‎ 


>> L-5*[0:.2:2].^2; 

>> [x,y] »meshgrid(-2:.05:2); 

>> [c,h] -contour(x,y,x.^2- 5 *y.^2, L); hold on 
>> [x,y] ^meshgrid(-2:.2:2); 

>> dx-2*x;dy-10*y; 

>> quiver(x, y, dx, dy) 


level curves and Gradient of z=x"+5y" 
2 —————— —— X DRAMA 





الشكل رقم i£, A)‏ المنحنيات السوية و c OM‏ للدالة .z-x^5y^‏ 


حساب التفاضل والتكامل فى ١ RN MATLAB‏ 


يمكن تقر یب التدرج a gt . gradient Jo Vf (x, y)‏ بتعدير التدرج للدالة 


f(x,y) = xe‏ .بعد تعريف مضفوفة اال 52> +«>2.و ys2‏ <2- باستغمال 


84 ومن ثم نرسم (الشكل رقم 8 C£,‏ باستخدام الأوامر quiver‏ و contour‏ : 


>> [x,y] = meshgrid(-2:.2:2, -2:.2:2); 

z —x.* exp(-x.^2 - y.^2); 
[px.py] = gradient(z,.2,.2); 
contour(z),hold on, quiver(px,py), hold off 


Gradient x e'-x?-y?) 
20 
18 
16 


14 


الشكل رقم .)4,١9(‏ التدرج للدالة 7 xe”‏ . 


(4,5.1) القيمة العظمى والصغرى 


Maxima, Minima‏ فى نجال محدود ومغلق. الأمران D ac; min «¢ max‏ ف حساب 


قيم ومكان هذه القيم .3 p à‏ حسب حجم M‏ المستخدم. فمثلا الدالة 


E‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


fy) -sin(x)*sin(y)*sin(x-y)‏ على iaa‏ 2/4 > بر ,0 < *« توجد لبا قيمة عظمى 
عند )0/4 , 0/4( وقيمة صغرى عند ) 2/4- , (-m/4‏ 


ستحدم meshgrid All»‏ لتحديد مصموفة Jut‏ وتعريف الدالة : 


>> [x,y] meshgrid(-pi/4:pi/S0:pi/4); 
>> z-sin(x)-tsin(y) *sin(x ty); 
>> [m,ind] -max(z(1:prod(size(z)))): 


m في‎ Lg 52 فتساعد على محديد القيمة العظمى و‎ [mind] = max دالة‎ Lal 
Pind وتخزن موقع القيمة العظمى في‎ 


>> 7 
m= 
2.4142 
>> num32str(x(ind)) 


ولتحويل ind ei»‏ إلى قيمة في Jue‏ الدالة نستخدم num2str‏ والناتج n/4)‏ , 1/4( 


حيث إن ۸/4 = 0.7854 : 


ans = 

0.7854 

>> num32str(y(ind)) 
ans = 

0.75854 


نكرر الخطوات LEY‏ القيمة الصغرى وذلك باستخدام min‏ : 


>> [mi,ind] -min(z(1:prod(size(z)))); 
>> mi 
mi = 
-2.4142 
>> num32str(y(ind)) 
ans — 
- 7854 
>> num2str(x(ind)) 
ans = 
-0.7854 


حساب التفاضل والتكامل فى ١ £o MATLAB‏ 
(8,ه, 4 ) تكامل متعدد Multiple Integral‏ 
الأمر dbquad (f a,b,c,d)‏ — يعطي قيمة عددية للتكامل الشائي 
fiy Ol dre j] f (x, y)dxdy‏ باستخدام الأمر 1 ودائما يبدأ dbquad‏ 
بحساب التكامل بالنسبة gext‏ إلى ط ثم بالنسبة ل «ر من e‏ إلى d‏ 


مثال رقم )4 ١‏ ,£( 
احسب التكامل التالى : 





>> in-dblquad(fcnchk('1./sqrt(x.^2-- 2*y.^2-- 11/0102 
in = 
1.1597 


(£,0,A, Y)‏ دالة int‏ الرمزية للتكامل المتعدد 
طريقة أخرى لحساب التكامل SLI!‏ هي باستخدام دالة int‏ في البيئة الرمزية 
نه على مرحلتين» الأولى بالنسبة ل × والنانج يُجرى له تكاملا بالنسبة للمتغير ر 
لنحصل ف النهاية على القيمة التقديرية للتكامل : 


>> syms x y real 
>> in-int(l1./sqrt(x.^2- 2 *y.42 + I),x, 0, 1) 
in = 
asinh(1I/(2*y*2+ 1)^(1/2)) 
>> inn=int(in,y,0,2) 
inn = 
-2*log(3)* 2*log(14 2^(1/2)*5^(1/2))-1/2*2^(1/2)*log(-2-- 5^(1/2))- 
1/2*2^(1/2)*atan(2/5 *5^(1/2)) 
>> double(inn) 
ans — 
1.1597 


ER‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 
مثال رقم )* (E, Y‏ 
A‏ التكامل Le WI‏ للدالة e fixyz»zxy‏ | الفترة 
z<xy, 0 > <> [ (‏ > 0 ,ع > بر > R={0‏ , 


X X 


i x" y^z dz dy dx 
000 


نكرر الأمر int‏ ثلاث مرات » مع تحديد متغير التكامل و حدود التكامل في 
كل ce ym‏ : لنحصل Pr‏ لنتيجة المطلوية. 
syms x y z real‏ >> 
 ff-(x^3)*(y^2)*z‏ 
s‏ 


x^g e z 


>> int(int(int(ffz,0,x*y),y,0,x),0,1) 


dns —‏ 
1/110 
A, Y)‏ ,0,£( تطبيقات على التكامل المتعدد 
التطبيق )١(‏ 
سات المساحة لسطح ما (Surface area ) S‏ حيث S‏ هو PU‏ لدالة (z=fixy)‏ 
نحتاج الى التحويل rG y) = Q5 y, f 5 y))‏ » و المساحة للسطح S‏ تأخذ الصيغة . 
f + f, dedy‏ +1( || 
ولتقدير المساحة السطحية جسم القطع E S‏ في البعد الثالث Paraboloid‏ 
معطى بالمعادلة ”+ = z‏ ومعرف على ا مجال D = /0,1]x[0,1]‏ نستعمل الأمر 





حساب التفاضل والتكامل في MATLAB‏ ۷ 





ويمكننًا MATLAB‏ من حساب مساحته بالأوامر التالية : 
area-dblquad(fenchk( 'sqrt(1--4*x.^24-4*y.^2) ), 0, 1,0, 1);‏ >> 
area‏ >> 
area =‏ 
1.5616 


ورسم السطح بالأوامر التالية JS JU‏ رقم EY‏ 


>> [x,y] -meshgrid(0:.05: 1); 
>> surfl(x,y,x.^24-y.^2); 


Area of Paraboloid 





الشكل رقم .)4,5١(‏ المساحة السطحية جسم القطع المكافئ. 


TEA‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 





r=ssec@ jor x3 


حيث إن 6 = r‏ معادلة Slo‏ 8( وقيمة نصف bill‏ هى 6 ومركزها نقطة 
r = 3sec 0 ul Nw»‏ فهى معادلة خط مستقيم di x=3‏ نقطة التقاطع Las s‏ 
بدالة solve‏ لحل المعادلة 0— 6 — 0 Jsec‏ . 


>> syms tr real 
>> solve(3*sec(t)-6) 
ans = 


1/3*pi 


ris 6‏ 
ثم المساحة المطلوبة تقدر بالتكامل frdr‏ 46 | ونستخدم الأمر 2 في 


!3 3secÓ 


: للحصول على التكامل‎ syms 


=> > c=int(r, 3 *sec(U), 6) 
C — 
[8-9/2 * sec(t)*2 
>> int(c,-pi/3,pi/3) 
ans = 
12*pi-9*3^(1/2) 


الشكل رقم (E, Y V)‏ يوضح المنطقة المطلوب إيجاد تكاملها وهي المساحة 
المحصورة بين المنحنيين. 


حساب التفاضل والتكامل في ١ MATLAB‏ 





الشكل رقم (5,59). المساحة المحصورة بين المنحنيين. 


(f£,‏ زی 


S E^ i| قن‎ — Y 
2. ر المجموع‎ 


lim x Y^ (| ؟#-احسب‎ 


x— Û0 + 


lim xil (UO 
X 


XO 
مع العلم أن‎ (8g Y Y لحساب التكاملين على‎ simpsons ستخدم برنامج‎ |-Y 


القيمة الحقيقية للتكامل هى 4 (1)) و ]8(1)70.438259 . 


NO‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


sa [ cost mt? /2)dt 
C(1)- | sin( z t^[2)dt 
ومن ثم احسب‎ bia كاملا‎ UR e S MO paces عدل برنامج‎ -é 
. 352 64 التكامل التالي باستخدام‎ 


o era 


0 — استخدم دالة ol Y diffgen‏ المشتقة الأولى والثانية للدالة xcosx‏ عندما 
1= × استخدم h-0.]‏ تم عند 0.01 = 1. 


5- أوجد المساحة المحصورة بين منحنى الدالتين exp(x), y = In(x)‏ لإبين 2= »× 
وذ - X‏ 
-N‏ احسب حجم الجسم الناتح عن دوران 6× - y‏ حول حور y‏ عند 0 - لا 
.y-7105‏ 
^7 ارسم الدالة z = sin(x y^)‏ والمستوى المماس عند النقطة sin2)‏ ,1 ,1) . 











: قرب التكامل‎ - 8 
| as [s dx (i 
“1+ × لل‎ 
l | -34/2 * i | 
|——À dx (a [x * sin(1/ x)dx بت‎ 
ل‎ (1e x?) ! 
, — Sie *t ] | 
fe sin xdx ( | -dx (> 
[+ “ع‎ 


() | 


ga oe 


MATLAB gle المعادلات التكاضلبة‎ Jala 


المعادلات التفاضلية هي ced tS Lele deal old coL‏ و الف ماين 
والرياضيين» OY‏ ظواهر عديدة فيزيائية » بيولوجية» وكيميائية؛ واقتصادية تُمثل 
FU‏ بهذه المعادلات. في هذا الفصل نوضح كيفية استخدام MATLAB‏ لإيجاد حلول 

عددية لبعض أنواع المعادلات التفاضلية. 


)0,3( مقدمة في المعادلات التفاضلية 
المعادلة التفاضلية العادية Ordinary differential equation‏ هى معادلة تتضمن 


: JS S علي‎ y, y seen y متغير 1 ومشتقاتها‎ à fft) =y Ble 
F(t,y, y, y ,..., y) — () 


وتعرف رتبة المعادلة التفاضلية order‏ بأنها ركبة المشتق ذى الرتبة العليا الد 
يظهر فيها. تحسب درجة المعادلة degree‏ بأخذ درجة الحد الأعلى رتبة. وتسمى المعادلة 
التفاصّلية خطية linear‏ إذا كانت Y‏ وجميع مشتقاتها من الدرجة الأولى ومعامل y‏ 


١1١ 


ov‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


تحتوي على دالة في متغيرين أو أكثر وتفاضل جزئي » فتسمى معادلات تفاضلية جزئية 
partial differential equation‏ . نطلق على الدالة التى تحقق المعادلة التقاضلية حل المعادلة 
التفاضلية solution‏ » فمثلا : 


y y'- 


هي معادلة تفاضلية Hole‏ خطية من الرتبة الثانية والدرجة الأولى» أما الحل فهو 
دالة على شكل عدر : 

هناك معادلات تفاضلية بقيمة ابتدائية معطاة yo‏ = )ر وتسمى معادلاات 
تفاصلية بعيم LE Ma Initial value problem 451A‏ بعيم عند حدود المجال i‏ وتسمى 

v" تحليلية للتوصل للحل‎ i3 كما أن هناك طر‎ .Boundary value problems 

للمعادلات التفاضلية » ولكن بعضا من المعادلات لا يوجد لبا حل فعلي» أو أن الحل 
الفعلى يصعب التعامل care‏ لذلك Leb‏ إلى طرق done‏ للحصول على حل للمعادلة. 
وهذا يعني أننا نقدر الحل المتصل للمعادلة بقيم تقريبية متقطعة تعطي قيمة دالة الحل 
عند نقاط معينة في JU‏ تبدأً بنقطة ابتدائية وتنتهى عند نقطة نهائية معطاة. فنقرب Y(t)‏ 
بالقيمة y;‏ للقيم ,1 بحيث إن t; — t9 ih‏ » 7 طول الفترة و 0,1,2,...7 <1 . 

في هذا الفصل سنوضح كيفية استخدام MATLAB‏ في حل معادلات تفاضلية 
بطرق عددية » كما سنعطي دوال جاهزة 3( MATLAB‏ تحسب الحلول للمعادلات 
التفاضلية في البيئة المعتادة أو 3( البيئة الرمزية syms‏ . 


Euler Method طريقة أو‎ (9,7) 


لحل معادلة تفاضلية بقيمة ابتدائية توجد طرق ذات خطوة واحدة وأخرى بعدة 


حلول المعادلات التفاضلية على ior MATLAB‏ 


خطوات. تعد طريقة أويلر Euler‏ من طرق الخطوة الواحدة» ولا تحتاج لقيمة ابتدائية 
سوى المعطاة في المعادلة التفاضلية. و هي من أبسط الطرق العددية المباشرة لحل معادلة 
تفاضلية عادية من الرتبة الأولى» مثل : 

y= = fy)  astsb (a= 

لاستنتاج صيغة أويلر نستخدم سلسلة تايلور على JAN Bo‏ )ر : 
y(t; +h)= y(t) + y'(t)h + y"(u)h' /2‏ 
لتأخذ طريقة أويلر الصيغة : 
P= y(t) *hy'(tj)‏ )نز 

حيث إن ,1 - بم = 7 و العدد بر بين tai)‏ ,6( والخطأ برتبة 77 و يقدر ب (IDy W)‏ 


لذا ULIS) Lisl Ame obs X‏ 
كن كتابة صيغة أويلر النهائ 


Yo = yla) 
Yaa MET hf (f;. y;) 


:(0,3) بالخوارزمية‎ Euler à; Je وتنفذ‎ . yay(t) و‎ (70,1,2,3,...n-I لكل‎ 


function [tvals, yvals |-feuler(f,start,finish,startval,h) 
s-(finish-start)/h- 1; 
y-startval;t-start; 
yvals-startval;tvals-start; 
for 1=2:s 
yl=yth*feval(fity); 





خوارزمية )0,3( 


lot‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


(9. 9) رقم‎ Ji 
بقيمة ابتدائية‎ y'— Xy + × لحل المعادلة التفاضلية‎ )5.١( استخدم الخوارزمية‎ 


h-0.1 40 €x €1 عد‎ y(0)=0 


ا حل : 


: ند خل‎ fun يدعى‎ m-file d بعد رين الدالة‎ 
[xy] -feuler("fun',0, 1,0, 0.1); 
>> plot(y,'r); 
>> hold; 
>> plot(-1+exp((x.°2)/2)); 


تظهر نتائج المتغيرات y‏ × ويمكن مقارنتها JEL‏ الفعلي 7-1 wus y(x)=e"‏ 
نفس النقاط في الجدول رقم (ON)‏ 


الجدول رقم Y)‏ نتائج مثال رقم )8,4( 


X y exact 
0.1000 0 0.0050 
0.2000 0.0100 0.0202 
0.1000 0 0.0050 
0.2000 0.0100 0.0202 
0.3000 0.0302 0.0460 
0.4000 0.061 1 0.0833 
0.5000 0.1036 0.1331 
0.6000 0.1587 0.1972 
0.7000 0.2283 0.2776 
0.8000 0.3142 0.3771 
1.0000 0.5471 0.6487 


من الرسم نقارن الحل العددي الناتج من طريقة أويلر بال حل الفعلي» ويمكن 
rie‏ الحل بتصغير الخطوة ۸ إلى 0.01 =۸ كما يظهر في الشكل رقم (5,5): كما 


حلول المعادلات التفاضلية على ioc MATLAB‏ 
يمكننا مقارنة الخطأ المطلق في الشكل رقم (5.1) لنفس قيم A‏ ورغم أن طريقة أويلر 
يندر استخدامها عمليا( لكبر قيمة الخطأ) ‏ فإنه يمكن الاستفادة من بساطة استنتاجها 
لتوضيح الأساليب التي يتضمنها إنشاء بعض الطرائق الأكثر تقدما . 


comparing absolute error for euler solutions 


absolute error 
c 
5 





0 : | 
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الشكل رقم Y)‏ ,0( مقارنة الخطأ المطلق لحل أويلر التقريي للمعادلة. 


comparing euler solutions with the exact solution 
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الشكل رقم Y)‏ ,8( مقارنة الحل الفعلي وحل أويلر التقريي للمعادلة. 


5خ ١‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


Runge Kutta Method GS طريقة روسج‎ (e6,Y) 
من مجموعة من الطرق العددية لحل‎ Runge-Kutta تتكون طريقة رونج كوتا‎ 
المعادلات التفاضلية وهي عملية جدا وتعطي حلولا بدقة عالية. ولطرائق رونج كوتا‎ 
pity cL إل‎ cog عالية » بينما لا‎ L5, ذو‎ local truncation error JA خطأ قطع‎ 

مشتقات fly)‏ ما يوجد ف الطرق الأخرى. 

هناك طرق لر ونج كوتا من الدرجة الثانية second order Runge-Kutta methods‏ 
مثل طريقة هيون Heun method‏ وطريقة النقطة الوسيطة Midpoint method‏ وطريقة 
أويلر المعدلة Modified Euler method‏ . وتعد هذه العائلة من طرق رونح كوتا سهلة 
البر «A.‏ وتستخدم CES‏ لإيجاد bla‏ ابتدائية لبرامح "RS‏ فمثلا بفرض yo = yla)‏ 
ولكل  i-0,1,2,3,..n-1‏ 


طريقة Jol Oye‏ اتصقة الحافة + 


h 
Jur trie +k, ) 
ki = f (tsy) Ki = كر‎ Gay + hk) 


| h h | 
Jap JJ + hf (t, Ta ty J dj) 
: وطريقة أويلر المعدلة تأخذ الصيغة‎ 


Jur. 22000 + f (tias y; + Bf ty) 


كما توجد طرق رونج كوتا من درجات أعلى مثل رونح كوتاالرابعة 


حلول المعادلات التفاضلية على oV MATLAB‏ 


: O( h* ) برتبة‎ ed ذات‎ Classical RK4 الكلاسكية‎ 


Runge  Kutta 4 
kK, = Mf (fi; yi) 








h k 
k = hf [cb =——y, ¥ + 
k, = hf (t, + T», TE 


k = hf (tyt Ry Fyt E.) 


isl [28] OU ) Ls» hers cols RK Mersono 95 pa أو رونح كوتا‎ 


الصيغ التالية بفرض yg = yla)‏ ولكل i=0,1,2,3,..n-1‏ : 


Runge Kutta Merson 

















kK, = WM One Fy) 

k, = hf (f, + L— y, + LÀ 

ky = M (no Lm. y, + نك ہگ‎ 

eg B G, + Sy رگ ب‎ S52) 
b. = A (R4 hey, + لگ‎ LM 2k.) 
d sss y; 4 اي | سس‎ + 4 Kk, * Ke ] 


بين الطريقتين المختلفتين من رونج كوتا عند مناداة البرنامج . 


OA‏ ؟ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


مثال رقم Y)‏ .9( 
قارن حل المعادلة y= 2xy‏ إذا كان الشرط الابتدائي y(0072‏ و + من 0 إلى 2 
باستخدام طريقة Rung -Kutta‏ الكلاسكية 3 Osce‏ § خت إن h-0.2‏ والحل 
ا لحقيقي pm 2e"‏ ; 
ا حل ٠‏ 
الأوامر التالية Lad‏ على ملف الدالة £501 : 


function yp=f501(x,y) 
yp-2*x*y; 


ثم نكرر استخدام الخوارزمية باختيار الرقم 1 لرونج كوتا الرابعة الكلاسكية 
Classical 4‏ أو الرقم 2 لرونج US‏ ميرسون RK Merson‏ ونرسم النتائج الموضحة 
T‏ الشكل رقم (S Ty‏ 
[tvals,yvals I] —^rkgen( f501',0,2,2,0.2, 1);‏ 


[tvals,yvals2] -rkgen( f501',0,2,2,0.2,2); 
y=2. *exp(tvals.^2); 


plot(tvals,yvals]) 
hold 

Current plot held 
plot(tvals,vvals2,'r') 
plot(tvals,y,'g") 


الطرق تعطي نتائج متقاربة جداء ولذلك قمنا بالتقريب باستخدام zoom‏ في 
شريط مهام الشكل» عندها لاحظنا أن الحل بطريقة رونج كوتا الرابعة الكلاسكية 
أدق مقارنة بطرق رونج US‏ ميرسون» ولكن من عيوب كل طرق رونج GS‏ كمية 
الحسابات الكثيرة وعدد مرات التعويض بالدالة / . 


حلول المعادلات التفاضلية على ١ MATLAB‏ 


Comparing Runge Kutta methods 
5.622 





= Classilcal 
Merson 
exact 








5.8215 


5.821 


5.8205 


y(x) 


5.82 
2.8195 


5.819 
1.0255 1.0255 1.0255 1.0255 1.0256 1.0256 1.0256 1.0256 1.0256 1.0256 


X 


)9,1( طر TT‏ التخمين 9 التصحيح Predictor- Corrector Methods‏ 
تدعى الطرائق السابقة طرائق الخطوة الواحدة OY‏ التقريب يتم عن طريق نقطة 
واحدة سابقة» ولكن عمليأ نحتاج إلى استخدام أكثر من نقطة. والطرق السابقة 
ضرورية للحصول :على القيم الأولية » إلا Ul‏ عموما تتطلب جهدا للحصول على 
الحل العددي بالدقة المطلوبة. أما الطرائق ذات الخطوات المتعددة فهي نوعان» منها 
الطرائق الضمنية implicit methods‏ والطرائق .explicit methods å£ „aJl‏ نعرض هنا 
طر قا تطلق عليها طرق التخمين و التصحيح Predictor-Corrector‏ وهي توليف بين 
طريقة صريحة وأخرى ضمنية» حيث تخمن الطريقة الصريحة التقريب» وتصحح 
الطريقة الضمنية هذا التخمين. هناك طرق عديدة متعددة الخطوات تستخدم للتخمين 

والتصحيح نعرض إحداها وهى : 


Y "bs‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


١-للتخمين:‏ طريقة أدمز- باشفورث Adams Bashforth‏ ذات الخطوات 


. 5925.1 و‎ : OCh) iiy Ves الأربع و‎ 


Yo = €. Vi F A Ja جح‎ A, Y3 = وو‎ 


h | | | 58 
Mur MT 24 UP eds) D9 4 U asa) TIS eos Yo) FU a Vics) 


i‏ للتصحيح : طريقة أدمز — مولتون Adams-Moulton method‏ ذات الخطوات 


الثلاث و خطأ برتبة ht)‏ )0 و 5-1... ,3,4,5 i7‏ . 


Yo = #0» J = s Ja = ودلا‎ 


h | | | | 
Y iu - Yi Paa OF Git Yi) * 197 Un Vip os 10 5) t J ss Vis) 


su Co, Y) JU s‏ لستخدم LEY Adams- Bashforth‏ الحل التقريبى 
للمعادلة التفاصلية c‏ نم سن الحل بطريقة .Adams-Moulton method‏ 


مثال رفم V)‏ ,6( 
حل المعادلة y'2-5y‏ عندما y-50‏ و فى الفترة 0+ إلى 6 -م hy‏ تأخذ 


القيم 0.2 ¢ 0.1 و 0.4. 


احل : 
نكتب الدالة في m-file‏ ونطبق البرنامح abm‏ (الملحق) [15] » مع العلم أن الحل 
الفعلى ” 506 < .y‏ 


حلول المعادلات التفاضلية على ١ 15 MATLAB‏ 


function yp-f5(t,y) 
yp—-5*y; 


[tl yl]/=abm(75',0,6,50,0. 1); 
[12 y2] -abm('f5*,0,6,50,0. 2); 
[t3 y3] -abm('15',0,6,50,0.4); 


gU a Bl galah lis iaa من الشكل رقم )0,8( نلاحظ أن الكل‎ 


وغير مستقر عند 0.4. 


y(t) 





. predictor- corrector بطريقة‎ iilis ات‎ dag التقريبية‎ J ole! e) (8,2) الشكل رقم‎ 


)6,0( دوال MATLAB‏ خل المعادلات التفاضلية 
توجد دوال جاهزة على , MATLAB‏ تقوم بحل المعادلات التفاضلية وهي : ,0045 


ode113, odes‏ ,0023 ,002235 و ais .ode23t‏ شرحاميسط لبعضها d‏ الحدول رقم 


VY‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


Co, Y)‏ مع الإشارة إلى أن اختيار الدالة المناسبة يعود لنوع المعادلة و دقة الحل المطلوب. 


الجدول رقم (؟). دوال جاهزة لحل المعادلات التفاضلية. 
الدالة الو ظيفة 

وهي عبارة عن نظام حل بخطوة واحدة» أي أنها تحتاج عند حساب الحل في اللحظة t,‏ 
لعرفة القيمة التي تسبقها مباشرة tr‏ ويستخدم طريقة رونج كوتا ٤‏ اوه الصريحة. 
وتأخذ الصيغة العامة الشكل [ty] = ode45(fun,tspan,y0)‏ ».يجب أن تكون fun‏ على 

span و‎ My) = /)0/( أو‎ YSSEN شكل الطرف الأيمن من‎ Ode45 
هو مجال تغير 1 أما 0ر فهو شرط البداية للمعادلة. وف الأغلب تجرب كأول طريقة‎ 
لحل المسائل غير الجامدة.‎ 


طريقة أكثر فعالية وأدق من سابقتهاء ایا ار و سك الخطوة i‏ ونستحخدم 


Ode23 
.[t,y] = ode23(funtspan,y0) : الصريحة . الصيغة العامة‎ Y أو‎ Y رونج كوتا‎ 
طريقة الخطوات المتعددة التخمين والتصحيح ادمز — باشهولد- مولتون‎ PAS 
Odel13 
.Adams-Bashfold-Moulton predictor corrector method 
تفضل هذه الدالة في حالة المسائل العنيدة و تستخدم طريقة روزنبروك المحسنة‎ a 
de23s 


Modified Rosenbrock 


الطريقة المتبعة لإيجاد حل معادلة تفاضلية عادية بشرط ابتدائي في البيئة الرمزية 
E‏ الصيغة العامة ويرمز لعامل التعاضل ب dsolve(‘eqn1','x(t)}=a’,...) D‏ . 


حلول المعادلات التفاضلية على ١ MATLAB‏ 


(9, £) رقم‎ She 
: إذا كانت المعادلة التفاضلية‎ 


2 a + { - 2X = COS X 
dt^ dt 


والشرط الابتدائى x=0‏ و dx/dt-10‏ عندما £70 .أوجد حل المعادلة التفاضلية 





باستخدام 00623 و00645 في المترة من 1 إلى 2. 


: fel 
:m-file نعرف الدالة في ملف خاص‎ 
function fv—f54(t,x) 
global p 
fv=zeros(2,1); 
fv(D)9x(1). 
fv(2)—0.5 *cos(x(2)) *x(2)-(2*(x(1)^2)); 


وللوصول للحل نطبق الأوامر التالية : 
[t1 ,x1]=ode23(@f54,[1,2],[0,10]);‏ 
[t2 , x2] = ode45(@f54, [1,2], [0,10]);‏ 
à ya J! dsolve UIs (9,9,1)‏ 
الأمر y gle ata, dsolve‏ لمعادلات تفاضلية dole‏ في بيئة syms‏ وتكتب الدالة 
بصيغة رمزية» ويمكن أيضا إدخال نظام من المعادلات التفاضلية.وتأخذ الصيغة 


: العامة‎ 
dsolve("eqnl ','egn2', ...) 


يرمز ي كتابة المعادلة التفاضلية على syms‏ لمعامل التفاضل 'D'‏ وهو بالنسبة 


NTE‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


للمتغير المستقل " . إذا تلا D‏ حرف فهو المتغير غير المستقل » أما إذا تلاه رقم فهو 
تفاضل متكرر» فالتفاضل الثاني للمتغير y(t)‏ هو y‏ 102 . 

القيم الابتدائية تكتب على شكل معادلات مثل '6-(5)8 أو "Dy(a) =b"‏ . وإذا 
كان عدد القيم الابتدائية أقل من عدد المتغيرات المستقلة» فإن الحل سيحتوي على 
C1, Cuts‏ .آ5 كات ال gad‏ صرها OU‏ اقل سگرن شمما وسل Lese:‏ 
تنبيه لذلك. و إذا كان لم يكن هناك حل ضمني ولا حل صريح » فتعطى جملة تنبيه 
وحل فارغ يتضم نكلمة sym.‏ . في حال كانت المعادلات التفاضلية غير خطية» فالحل 


سيتضمن معادلة تفاصلية من درحه MES‏ 5 > 


(9,9) رقم‎ Ji 
: أوجد حل المعادلة التفاضلية في البيئة الرمزية‎ 


yo+y=1 (020‏ 
ا حل : 


نقوم بإدخال الأوامر التالية : 


y = dsolve('(Dy)^2 + y^2 = 1, 'y(0) = 09 
y= 


Bint) d 
[Sin(-t)] 


وهنا نعرض أمثلة أخرى للحالات المختلفة الأخرى : 


حلول المعادلات التفاضلية على ١ 5 MATLAB‏ 


>>Y = dsolve( Dy = y^2*(I-y)/) 

Warning: Explicit solution could not be found; implicit solution 
returned. 

Y= |‏ 
تنبيه بوجود حل ضمني t+ 1/y-log(y)+log(-1+y)+C1=0‏ 


>> dsolve('Df = f + sin(t)', 'f(pi/2) = 0") 
ans = 
-1/2*cos(t)-1/2*sin(t)+ 1/2*exp(t)/(cosh(pi) +sinh(pi)) (1/2) 


>> dsolve('‘D2y = -a^2*y', 'y(0) = I, Dy(pi/a) = 07) 
ans = 
cos(a*t) 


ويمكن حل معادلة TP S‏ 


>>syms sx pt 
s=dsolve(‘D2x+Dx+.25*x=0' 'Dp+.5*p+.25*x=0' x(0)=4' 'Dx(0)=0', 'p(0) =09 
c= 
p: [Ixl sym] 
x: [Ixl] sym] 
>> NX 
ans — 
exp(-1/2*t)*(4+2*t) 
>> $.p 
ans = 
-1/8*(8*t+2*t°2) *exp(- I/2*t) 


مئال رقم )* ,9( 

أوجد حلا للمعادلة التفاضلية : 
du‏ 
dx‏ 





SH with u(Q) =. u'(Q) =-l, 1 )0( =r 


TE‏ استخدام MATLAB gl y‏ في الرياضيات الجامعية 


: ا حال‎ 
>> dsolve(D3u-u','u(0)—1','Du(0)—-1' 'D2u(0) ,"امح‎ x’) 
ans — 
1/3 *pi*exp(x)-1/3 *(1+pi) *3^(1/2) *exp(-1/2*x)*sin(I/2*3^(1/2) *x) -(I- 
I/3*pDi)*exp(-1/2*x)*cos(1/2"*3^( I2) *x) 


)9,1( معادلات تفاضلية جزئية على MATLAB‏ 

سنتناول في هذا الجزء الحل العددي ببرامج على MATLAB‏ لمسائل تحوي معادلة 
تفاضلية بمشتقات جزئية تتعلق بمسائل فيزيائية مختلفة » وسنقتصر على المعادلات 
الكلاسيكية مثل المعادلات التفاضلية الحزئية الناقصية» والتكافئية والزائدية : 
Oru Q^u Oru Ou, Ou‏ 


+b +6—+d—+e 


-tà + fu +g =0‏ | جه 
ae ee me‏ > بي M‏ 








حيث )0 abeadefg‏ إما مقادير ثابتة وإما دوال 3 المتغيرين yox‏ 
تصنف المعادلة بأنها Al‏ عندما : 


b^-4ac-0 

ونقول Lg]‏ ناقصية عندما : 
b^"-4ac«0‏ 

وإنها معادلة زائدية عندما : 
b^-4ac»0‏ 


)3 ,6,3( المعادلات التفاضلية الجزئية الناقصية 
Elliptic Partial-Differential Equations‏ 
سنقوم بدراسة المعادلة التفاضلية الجزئية الناقصية المعروفة باسم معادلة بواسون 


: وھ‎ Poisson equation 


حلول المعادلات التفاضلية على Y" V MATLAB‏ 


2 


Vu(x.y)m-- ou 





HQ) —(x,y) =f (x,y) 


ewes (x.y)eR JS 


(x, y)eS,Vu(x,y)=g2(x,y) 
={(x,y)|a<x «b,c «y <d} 


ونرمز لحدود ۸ ب S‏ مع الفرض هنا أن كلا من f‏ و ع متصلة على UJE‏ 


الطريقة المستخدمة هى تعديل لطريقة الفرق - امحدود لمسائل القيمة 


. finite-difference method الحدية‎ 


RE ideam ee 
m H 
idi a Mile m إلى‎ [c,d] والفترة‎ h بطول‎ 
: تايلورنصل للصيغ التالية‎ 


yh= 


2 








Ou | ١ u(x y)-2u(v, y) t u(xi-s y) P o“ u Ns 
x^ (x)= h? 12 0x? | ») 


VTA‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


0^ u (— ux, w+i)—2u(xi, ua- k^ o'a 
EN uie ie TORUM X. = TT 





Oy" 
| Hg ely, ju) e E(x, tay) حيث إل:‎ 


نستخدم القانونين في معادلة بواسون وذلك بالتعويض قي المشتقات الجزئية 


بالصورة التالية : 


FHP 5 U(X; VY jay) - 2u(x;, HOY)‏ نور وود ,y,) u‏ ود 





h’ k^ 
h A k^ û“ u 
= 7) " | س بل‎ Tea; + —— ———_ Xis i. 


لكل n-1‏ ....... ,7,2 = ولكل 12,....,m-1‏ = ر والتعبير عن الشروط الحدية: 


[- 0,1......0« لکل‎ uxo, y) = 2), y;) 
179,1... m لكل‎ U(X, , ¥j) = (Xo , Yj) 
1= 0,1......n-1 لكل‎ u(X; , Vo) = g(Xi , yo) 
i=O0,1.....m-1 لكل‎ u(x, ya) 9 g(xi , yo) 


باستخدام طريقة الفرق- المحدود واستبدال الحدود التفاضلية بالقيم التقريبية 
ELI‏ من متسلسلة تايلور حصل على معادلة الفرق حيث إن x=atih, y=ctjk‏ ذات 
خطأ قطع برتبة O(K +h’)‏ : 


حلول المعادلات التفاضلية على ١8 MATLAB‏ 


ce h 2 2 
2A ky tlju;; (BFE) C Hj tu)--h f(x,y;) 


وبذلك تحول المعادلة التفاضلية إلى نظام من المعادلات الخطية» والذي يعد 
حله هو الحل العددي للمعادلة التفاضلية الجزئية الأصلية. نستخدم MATLAB pU y‏ 
لحل هذا النظام حسب الطرق الواردة في الفصل الثالث. نطبق خوارزمية معادلة 
بواسون للفرق امحدود (الملحق) في JUL‏ رقم )2,2( 


مثال رقم V)‏ .9( 
استخدم MATLAB‏ لتقريب حل المعادلة التفاضلية الناقصية» وقارن النتائج مع 
Jo‏ الفعلي u(x, y)= x-y).‏ : 


42 2 
ou Pu x Ü«x «ln O< 7 <2 


ia 2 
Ox“ oy” 
u(x,0)-x^,  u(x,2)-(x-2y, Osx: 
u(0,y)-y,  u(hy)s(y-D, 0<y <2; 


: UH 
عضب‎ 9 pat] UU JI Jes} clas التي‎ (32-1) poison نطبق البرنامج‎ 
+ الخال‎ 


>> poison 

The Elliptic equation of the form 

d^2u/dt^2 + d^2u/dx^2 = f(x,y) a<x<b, c<y<d 
Subject to the boundary conditions 


u(a,y)—g(a,y) cxyzd 


BA‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


u(b,y)—g(b,y) 
u(x,c)—g(x,c) a«x«b 
u(x,d)=2(x,d) 


the number of grid sections for the x variable; n= 5 
enter the number of grid sections for the y variable; m = 5 
enter the maximum number of iterations 50 

enter the right end point of the range of x ; a= Û 
enter the left end point of the range of x; b= 1 
enter the right end point of the range of y ; c= 0 
enter the left end point the range of y ; d= 2 

enter the tolerance ; tol=.0005 

enter the function f(x,y)—4 

enter the exact solution e(x,y)-—(x-y).^2 

enter boundary condition u(x,c)-(x).^2 

enter boundary condition u(x,d)-(x-2).^2 

enter boundary condition u(a,y)-—(y).^2 

enter boundary condition g(b,y)-—(1-y).^2 


يظهر لنا P E‏ 3 التقريبي (الشكل رقم 0,0( ومربع الخطأ التام total squared error‏ : 


The exact solution is e — 

0.1600 0.6400 1.4400 2.5600 4.0000 () 
0.0400 0.0400 0.3600 1.0000 1.9600 3.2400 

0.1600 0.6400 1.4400 2.5600 0.1600 () 
0.3600 0.0400 0.0400 0.3600 1.0000 1.9600 

0.1600 0.6400 1.4400 0.6400 0.1600 () 
1.0000 | 0.35600 | 0.0400 | 0.0400 | 0.3600 — 1.0000 


The approximated solution is w = 

0.1600 | 0.6400 — 1.4400 | 2.5600 — 4.0000 () 
0.0400 0.1081 0.5644 1.2043 2.0279 3.2400 
0.1600 0.1192 0.6032 1.0830 1.5589 2.5600 
0.3600 (0.1592 0.4833 0.8032 1.1190 1.9600 
0.6400 0.2282 0.2046 0.3645 0.7080 1.4400 
1.0000 0.5600 | 0.0400 0.0400 0.3600 1.0000 


error = 1.0280 


حلول المعادلات التفاضلية على TV MATLAB‏ 


Approximate Solution 





الشكل رقم )8,8( الحل الناتج معاد AS‏ بو اسوك m7n-5‏ . 


كلما كبرت قيمة m‏ وه فإن الحل يتحسن » والرسم يصبح Gol‏ وهذا ما يتضح 
من الرسم à)‏ كل رقم 0,1( عند .m-n-10‏ 


approximate solution 
| 





الشكل رقم )9,4( الحل الناتج لعادلة بواسول بشم m=n=10‏ . 


١‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


١,٦ ,۲(‏ المعادلات التفاضلية الجحزئية التكافئية 
Parabolic Partial-Differential Equations‏ 
نعرض معادلة الحرارة أو الاتتشار» وهى معادلة تفاضلية جزئية تكافئية, 
تستخدم في نمذجة انتشار درجة الحرارة في قضيب معدني طوله / سم » وتكتب المسألة 
والشروط الابتدائية الحدية كالتالى : 


Qu 


t <0‏ الو مويه ل و( 54 —(x‏ 
OX ^‏ 








Ou | a 
—ix.f)—u 
ar" ) 


u (0,1 ) — 0, u (L,t ) — 0, [ >< 0 2 تحت الشروط‎ 


u(x,0) = f(x), Ücx«l 


حيث إن “© يمثل معامل الانتشار ولايجاد درجة الحرارة عند أى نقطة X‏ وزمن 
Í‏ ف قضيب يكون في درجة حرارة صفر عند النهايات [=د و 2-0 و بدرجة حرارة 
ابتدائية في القضيب fr)‏ . يتضمن الأسلوب الذي نستخدمه لتقريب حل هذه المسألة 
فروقا محدودة » وهى مشابهة للطريقة المستخدمة لحل المعادلات التفاضلية الجزئية 


الناقصة. 


تار أو y‏ ابت الشبكة gh‏ + بشرط أن يكون -= m‏ عددا صحيحا. وبذلك 
MATLAB‏ لحل معادلة الحرارة بخوارزمية الفرق التراجعى Backward-difference‏ 


: O(k--h^) LS القطع بر‎ las. O 9S ; مراعاة شروط الاستقراز‎ a: method 


حلول المعادلات التفاضلية على YNY MATLAB‏ 


)1+ 2a k / hu, , - (a^ k | 77) 


il, j *tu,,;) e ici 


أو lsc‏ استخدام طريقة كرانك- نيكلسون Crank-Nicholson method‏ المستقرة 


بدول شروط وذات las.‏ قطع من الرتبة O(k +h”)‏ : 


S i = 5 
"gu "uo u [isl 2U, j +U à a ja T 24; a Hug 1-0 


k 2 h“ h 


مثال رقم )٥,۸(‏ 
fp‏ العادلة التفاضلية WS ALI‏ جلما a‏ القرق ll‏ اجى : 


U «2; 0 «t;‏ | "تناد 
Of Ox”‏ 
بالشروط © u (0,t) -u(2,t) =0, t>0‏ 
u (x ,0) = sin7 x, Oz x = 2‏ 


باستخدام 5-100 » m-10 5 t-0.1‏ وقارن النتائج JEL‏ الحقيقي : 


Tr” 4) 


lse 5100203 


» اح‎ 
>> heat 


The Parabolic equation of the form 
d^2u/dt^2 - (alpha^2)* d^2u/dx^2 =0 O0<x<I, 0<t<T 


Subject to the boundary conditions 
u(0,t) - T1 

u(1,) T2. O«t«T 

u(x,0) —f(x) 0 —x«-l 


enter the number of grid sections for the x variable; m= 10 
enter the number of grid sections for the t variable; n — 100 
enter the end point of the range for x; l= 2 

enter the end point of the range for t; T= .1 

enter the exact solution e(x,t)=exp(-t. *(pi^2/4)). *sin((pi/2). *x) 
enter the constant alpha — 1 

enter the constant TI = 0 

enter the constant T2 — 0 

enter boundary condition u(x,0)=f(x)=sin((pi/2). *x) 


approximate solution 


0.8 


0.6 


0.4 


0.2 


<= == — =- = = = := = = — = = — العم — — = 
ل 





الشكل رقم (/.ه). الحل الناتج لمعادلة الحرارة بقيم m= 100 , n=10‏ . 


ولكن مع مراعاة شرط الاستقرار stability condition‏ 0.5 > 020/52 أما عند 
استخدام كرانك- نيكلسون فإن الحل يكون أكثر دقة والطريقة مستقرة بدون شروط 


حلول المعادلات التفاضلية على Vo MATLAB‏ 


كمافي الشكل رقم «(0,A)‏ باستخدام 100 m=‏ و 8-100 التي قد لا تكون مستقرة 
بخوارزمية الفرق التراجعي. 


approximate solution 





t 


x 


الشكل رقم (8,.ه). حل تقريي لعادلة الحرارة بقيم 0-100 ,100 m=‏ بكرانك نيكلسون. 


,6,5 المعادلات التفاضلية الجزئية الزائدية 
Hyperbolic Partial-Differential Equations‏ 
نتطرق للمعادلة التفاضلية الموجية كمثال لمعادلة تفاضلية جزئية زائدية وتعطى 
بالمعادلة التفاضلية 531 a5‏ التالية : 
e‏ 


a2 
(xt)? ru) 0,0 «x <1, t0 
| X 


y‏ استخدام برنامج cb JI t MATLAB‏ الجامعية 


u(0,t)-u(l,t)-O , t7 0 


Ou 
a )=g(x) x 


ويستخدم برنامج MATLAB‏ لحل المعادلة الموجية خوارزمية الفرق المحدود 


الحصول على طريقة الفرق باستخدام الفرق المركزي للمشتقات الحزئية الثانية لنصل 
الى معادلة العمرق الصريحة : 


Ui; zu; tu, _ فى‎ Uaj mal jt 6 
k^ h^ 
(9, 5) مثال رقم‎ 


: حل المعادلة‎ Ja ol 


Qu Ou 

—————z0, O0«xc«l, -— 

or^ ae | t0 

u (0.1) -u(Lt) — 0, t>0 
Osx <I, 


u(x,0)- sinzx, 


Pu is yes OS SL 
Ot 


مستخدما m=10, n-10‏ و T=‏ وقارن بال زر الحقيقى للمعادلة 
„u (x,t) = 205) 27 sin(x ).‏ 
ا حل : 
نطبق البرنامج wave‏ ( الملحق) لينتج ال حل التقريبي (الشكل رقم 0,5): 


حلول المعادلات التفاضلية على Y VY MATLAB‏ 


= = Wave 


The Hyperbolic equation of the form 

d^2u/dt^2 - (alpha^2) *d^2wdx^2 = 0 0«x«l, 0«t«T 
Subject to the boundary conditions 

u(0,t) -u(T t) -0 0<t<T 


u(x,0)—f(x) 
du/dt=2(x) 0x1 


enter the number of grid sections for the t variable; n= 10 
enter the number of grid sections for the x variable; m = 10 
enter the end point of the range for x; [= 1 

enter the end point of the range for t; T= 1 

enter the constant alpha= 1 

enter the boundary condition f(x) -sin(pi*x) 

enter the boundary condition g(x)—0 

enter the exact solution e(x,t) -cos(pi*t). *sin(pi*x) 


approximated solution 








0.5 

0. 
-0.5 

“1 1 

1 

rg Re aa 
5 0.2 
: 0 0 
X 


الشكل رقم )0,4( حل تقريي لعادلة الموجه بقيم 10-م,10 m2‏ . 


IVA‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 
الطرائق التى قدمت في تطبيقات المعادلات التفاضلية الجزئية كانت مستقرة أو 


مشروطة الاستقرار وكلها طرائق صريحة ولكن توجد طرائق أخرى ضمنية ذات 


استقرار بدون شروط ويمكن رؤية دراسة لهذه الطرائق ]22[ . 


oV )9,۷(‏ 
حل المعادلات التفاضلية التالية باستخدام دالة جاهزة في MATLAB‏ أو ببرنامج 








: m-file 

m 
y --(yY-y-*lInx, SNS 2 
y(1) = 0, 
y(2) = In2 

FT 
Ou Ou م‎ () < < | 
o! @ °° DTA e 
u (0,t) -u(Lt) - 0, t0 
u(x,0) = sin x O<x<7 

-Y 
ME ath 0 > ج > مد‎ 
01 
Ou Ou esi 





—-—=0, 0> «2, 
Ot | Ox^ | 


O<x <2. O«t; u(0,t) u(2,t) =0, 


حلول المعادلات التفاضلية على ١ V MATLAB‏ 


£- أوجد الحل التقريبي بطريقة عددية مناسبة وقارن JEL‏ الفعلي. 





2 da + (S. - 2x = cos x (| 
dt^ . df 


t=0 عندما‎ x=0 9 dy/dx=10 حيث إن‎ 
yD=lte' و‎  y(0-1 0«x«1 öles -ylty=x (c 
y'=sinf+e"  y(0)-0, 0>7>1 C 
y(0) = 0, 0252252 Û 


7 


! 


yet 
: استخدم الخوارزمية المناسبة لتقريب الحل‎ 70 


y=l-y  y(0)20, szzi (| 

y=-ytttl »(0) = 2, 0272253 t 
y'2-(y)y-y-Ilnx  »(D20,yQ2)2-12 1<x<2 (> 
y'24(y-x)  »(0)20, y(1)22 0Ozxszl (ə 


ei)‏ لاور 


استكمال وتكر mint‏ الدوال على MATLAB‏ 


عند وجود بيانات معينة حصيلة تجربة Cade‏ فإن تحليل هذه البيانات سيعطي 
معلومات عديدة:؛ مثل : التنبؤ بالقيم المستقبلية» والحصول على قيم البيانات 
السابقة» أو قيم تقع بين نقاط البيانات المستخدمة. إن استخدام دالة تقريبية تمر 
SLLIL‏ لتتشهيل ليد البيانات يسمى بالاستكمال -Interpolation‏ ولبرنامج 
MATLAB‏ دور باهر فى هذا المجال» فقد زود بأوامر جاهزة لاستكمال الدوال ورسمها 
بدقة فائقة في أي عدد من الأبعاد» كما يسهل برمجة الدوال المتعلقة بالاستكمال» Le‏ 
بجعله ينافس الكثير من البرامج المتخصصة في الرسم بسرعة ودقة فائقة. ستنطرق أيضا 
في هذا الفصل لموضوع تقريب الدوال بدوال أبسط منهاء مثل كثيرات الحدود والدوال 
CHE oy LAT‏ من XR]‏ بين المتقطع والمتصل. وستتضمن الدراسة نظرية التقريب بدالة 
صريحة » والبحث عن الدوال الأكثر ملاءمة للتقريب باستخدام MATLAB‏ 


)3 ,^( استخدام كثيرة 294 للاستكمال Polynomial Interpolation‏ 


نستخدم vul yk‏ الحدود في التقريب » Loy‏ دوال متصلة» ولسهولة حساب كل 
من ato n‏ اتها وتكاملانها. An i‏ كثيرات الحدود من أشهر الدوال C TIEN La 5S1,‏ 


\A\ 


VAY‏ استخدام برنامج MATLAB‏ في الرياضيات ا لجامعية 


بخصوصاً ق US 5 c Js Sal‏ لسهولة تطبيقها» وتكوت:على هذا JEAN‏ : 


3- 3 ظ 
D, (x) = a,x : tax aim tax 7 +n ta, X +4,‏ 

si LEE T | * + & 

حيث nol‏ عدد صحيح غير سالب و , 0, "— mA dela a,,.‏ 4 


ثابتة | ومن Lud Je]‏ أهمية هله الدوال هو أنها 5 — الدوال المتصلة بانتظام. من 
كثيرات الحدود التى تستخدم في التقريب متسلسلة تايلور» وهي طريقة أساسية في 
التحليل العددي» ولكنها غير ملائمة للاستكمال OY‏ دقتها تتركز فقط في جوار نقطة 
JES WY cc las ccs xi‏ كثيرة جدود lass‏ ریا le Lago‏ 3 دد 
وباستخدام معلومات من نقاط مختلفة. 
سنعرض الاستكمال باستخدام كثيرات الحدود لاجرانج ونيوتن Newton,‏ 
»Lagrange polynomials‏ كذلك تقريب كثيرات الحدود التجزيئية مثل دالة الشريحة 
التكعببية للاستكمال Cubic Spline Interpolation‏ مع تطبيقاتها على برنامح 


.MATLAB 


)3,3( استكمال كثيرة حدود لاجرانج 
Polynomial Lagrange Interpolation‏ 


Slo f (x) CSS و‎ ntl baes Laks altel x تت‎ ,,....,X CE إذا‎ 


fT 


قيمتها عند هذه الأعداد معروفة» فان Lagrange 4% yb‏ تعتمد على البحث عن كثيرة 


حدود ۲ وحيدة» وبدرجة لا تزيد على « بحيث hat‏ على : 


P=] (x,) d o-—U L2 


استكمال وتقريب الدوال على VAT MATLAB‏ 


: بالشكل‎ ١ عندها تكون كثيرة الحدود من الدرجة‎ 
D, (x) =Ly(x Y (Xo) + L(x y GL, (x y (x,) 


tO use 


n 


Liz 8X XUMUE I Aue 073) c TT XX 


(x, —3x ل( — ودار‎ a, WO Jel X.) AXES 


وتسمى هذه الصيغة كثيرة حدود لاجرانج للاستكمال Lagrange Interpolation‏ 
polynomial‏ . 

نبدأ بأسهل حالات الاستكمال» وهي الاستكمال الخطي « فلتكن ) f (x‏ دالة 
شعو فة XX, Cpa we‏ وتويك Ol‏ نكون كثيرة حدود P(X)‏ من الدرجة (dad‏ 
و تمر بالنقطتين ((, *) (Hoof‏ و )1 Gc uf‏ ويتضح من الشكل رقم CL‏ 


أن الخط المستقيم هو أقصر منحنى يمر بين النقطتين السابقتين. 





—- px) 
سے ر‎ — f(x) 
(Xof(Xo)) f. 





الشكل رقم .)5,١(‏ الاستكمال الخطي. 


VAS‏ استخدام برنامج MATLAB‏ في الرياضيات الخامعية 


— M ويمكن تمثيل هذا المستقيم‎ 
p(x)=— — f (x9) += T "0 (x) 


X, 7X1 X 1) < X 9 
كانت:‎ lols 
x —x 5 X —x 
L(x ) =——— _ 9 L(x ) = ——- 
t +4 X> 0 


فإن كثيرة الحدود الخطية تأخذ الشكل QUII‏ : 
p(x )= L(x y (x) + L(x y (x)‏ 
a‏ يب QI aJ‏ لاجرانج يلعب دورا Lege‏ في oL]‏ صيغ التكامل العددية 


لختلفة التي تم عرضها في الفصل الرابع. يساعد برنامج MATLAB‏ في إيجاد كثيرة 
حدود لاجرانج وحساب قيمتها وقيم L,‏ عند أي نقطة وذلك بتعريف الدالة lin‏ ]7[ 





% Lagrange Interpolation Method 

function fi = lin (x,y,x1); 

dxi = xi-x; m = length(x); zeros(size(y)): 
L(1) = prod (dxi(2:m))/prod(x( 1 )-x(2:m)); 
mista د‎ (dxi(1 :m -1))/prod(x(m)-x(1:m -1)); 


+]:m)) 





(V3) خوارزمية‎ 


استكمال وتقريب الدوال على , ١ A6 MATLAB‏ 


(TN) رقم‎ Jio 
لتكن قيم الدالة معطاة في الجدول التالي» أوجد كثيرة حدود لاجرانج‎ 
؟‎ 1.5 te DU ولحسب قبهة‎ c UU :هذه‎ JU Say 


i Xi f(x;) 
0 (0 1 
1 1 1/2 
2 2 1/3 


: UH 
د لاجرنج كما هى معرفة في ملف الدالة‎ ad= بادخال البيانات حصل على كثيرة‎ 
: syms xi بالأمر‎ 9 lin 


>>x=/01 2]; 
>> y= fl f/2 1/3]; 
>> SVMS XI; 
>> p2 = lin (x,y,xi) 
p2= 
1/2*(xi- 1)*(xi-2)- 1/2*xi*(xi-2) - I/6*xi*(xi-1) 


ويمكن ترتيبها كما يلي : 


>> p2 = expand (p2) 
p2 = 
1/6*xi^2-2/3*xi* I 


: يعطى $525 الحدود‎ Bey 


=0.1667x ? —0.6667x +1‏ ) )رم 


LA‏ استخدام برنامج MATLAB‏ في الرياضيات الخامعية 


ولحساب قيمة كثيرة الحدود عند ( 1.5) ندخل ف دالة lin‏ كما يلي : 


>> p2 = lin(x, y, 1.5) 
p2 = 
0.375 
(5, Y) مثال رقم‎ 


أوجد كثيرة حدود لاجرانج بالنسبة x70,x71,x,725 brad‏ 


لاستكمال الدالة 





Y= 2:3 Le 1) × ( 2 
X 3 [X ) -a 


: ا حل‎ 
>>x= [01 2.5]; 
>> y= [I 0.6677 0.4444]; 
>> SVMS X 
>> p2 = lin(x,y,xi) 
p2 = 2/5*(xi-1)*(xi-5/2)-4/0*xi*(xi-5/2) + 16/135*xi*(xi-1) 


p,(x)20.074x ^ — م2.63‎ +1 


: P5 (2.3) قيمة‎ GLA» 


p2 = lin(x, y, 2.3) 
p2 = 
0.4548 


وللمقارنة نوجد القيمة الفعلية )2.3( f‏ : 


| 2 ظ 
0.4651 = ———— = )2.3 
J (2.3) 2.3 + 2‏ 


استكمال وتقريب الدوال على VAY MATLAB‏ 


LAT)‏ استكمال F‏ حدود نیوتن 


Newton Polynomial Interpolation 
Divided وتسمى المروق المقسومة‎ cL تعتمد هذه الطريقة على تقر یب‎ 
: وتعرف كما يلى‎ © 


الفرق المقسوم الصفري عند النقطة X,‏ : 
F(x, ]=f (x)‏ 
والفرق المقسوم من الدرجة الأولى عند النقاط eA Xa‏ 


f xx] 2 Id و‎ _f Gu) - f Gn) 


(x,— × (م‎ (x, — x4) 
: النقاط ر تى ديوع‎ Gen] ومن الدرجة‎ 


Fea ` j= HU Een I-— [Riad donee kai. 
opes | = ل ل ل‎ 


(x, —Xo) 


لنحصل على صيغة كثيرة حدود LU S y VI‏ الذالة f(x)‏ في النقاط 


P, زوم‎ = fx] + Y ffs x n) x) 


CUT) مثال رقم‎ 
bLs يواتن‎ ie tid الفرق المققسوح‎ — (i 
(44 
: التالى‎ Sg abl aal (x, 


i 0 1 7 3 4 
X; 1 2 3 4 5 


ب )احسب كثيرة حدود نيوتن لاستكمال الدالة عند (1.5). 
الخال 

نطبق على MATLAB‏ خوارزمية (TY)‏ ونقوم LEL‏ الفروق المقسومة و كثيرة 
الحدود 9 3 a‏ 





عند sl‏ نقطة بالدالة divdif‏ ]7[ : 


function D = divdif(x,y) 
m= length (x);D = zeros(m,m); 
Dil) =v); 


+ E ere 
E CET rx - PUE E 
Trev 1 "TTT 





(Y) خوارزمية‎ 


x7[12345]; 
y7/[93791 177 301); 
D = divdif(x,y) 
9 0 ( 
37 28 ( 
9] 54 73 
177 86 ló 
301 124 I9 


mu - SS ou 


استكمال وتقريب الدوال على ١/5 MATLAB‏ 


: صيغة نيوتن‎ t نعوض القيم الموضحة بالحدول‎ 
>> SYMS X; 
>> p = 9+28*(x-1)+13*(x-1) *(x-2)+(x-1) *(x-2) *(x-3); 
>> expand (p) 
ans = 
a TR 


أى أن كثيرة الحدود هى + 7+ 7+ p — x!‏ 


: (1.5) قيمة الدالة عند‎ LEY 
>> subs (p, 1.5) 


ars — 


20.125 


كما y‏ جد لدى MATLAB‏ دوال AD Ye‏ وجاهزة Sle Sw A‏ الخطى ومنها 


: ولبا الصيغة‎ interpl 
p = interpl (x, y, [xi], linear) 


(4, £) رقم‎ She 
اچاد شی‎ yp x = 1,2,...,5 جحد النقاظ‎ ef (x ) 2 x ^ الدالة:‎ ss 
: x — 23, 3.8 we Jay 
mex 
mc poe” NE 
>> p-interpl (x, y, [2.3, 3.8], linear) 


124822 494104 


نجد أن الاستكمال يصبح أدق عندما نعتمد على نقاط أكثر ودرجة أعلى » 
فللحصول على كثيرة حدود من الدرجة الثالثة في MATLAB‏ نستخدم دالة interpl‏ 
ولكن باستخدام ("cubic")‏ : 


‘a.‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


Pt ESL, 
> y ج‎ xd wes 9 y 
>> p = interpl(x, y, [2.3, 3.8],'cubic') 


48.1599 11.0710 
مثال رفم )1,8( 
استخدم صيغة الاستكمال المناسبة على الدالة( ×) ر عند 1.23 = J pte x‏ 
القيم التالي» مع المقارنة بين النتائج Ob Lele c‏ القيمة الحقيقية هي 3.4212 . 


X; D» 1.4 1.6 1.8 


f(x;) 2.7183 3.3201 4.0552 4.9550 6.0496 


: ا حال‎ 
Sex = [1 72411537 
>> y = [2.7183 3.3201 4.0552 4.9530 6.0496]; 


ah aa 


تقريب الدالة بصيغة (Lagrange)‏ : 


>> p = lin (x, y, 1.23) 


3.4212 
: ( Newton) الدالة بصيعة‎ c 5 
>> D = divdif(x,y) 


D= 
2.7183 7 0 0) 0) 
3.3201 3.0090 () Ü 7 
4.0552 3.6755 1.6663 0 0 


4.0530 4.4890 2.0537 0.6125 0 
6.0496 5.4830 2.4850 0.7521 0.1745 


ee = dhe 3; 


استكمال وتقريب الدوال على ١ Y MATLAB‏ 


—pd-2.718343.0090*(x-1)*- 1.6663*(x-1)*(x-1.2)0.6125*(x-I)*(x-1.2) *(x-1.4) 
pd — 
3.4211 


: المخطية‎ Cinterp]) تقريب الدالة بصيغة‎ 
>> pl = interpl (x, y, [1.23], linear) 


pl = 
3.4304 


: AS Gnterpl) بصيغة‎ Jas! c 5 


>> pc = interpl (x, y, [1.23],'cubic") 


pe ~ 
3.4210 


نلاحظ أن القيم كلها متقاربة» والأفضل هو تقريب لاجرانج. 


Interpolation Cubic Spline الشريحة التكعيبية للاستكمال‎ (V, Y) 
إلى زيادة درجة كثيرة الحدود للحصول على تقريب‎ cls يتضح مما سبق أننا‎ 
أفضل» ويمكن تجزئة مجال النقاط المعطاة إلى أجزاء أصغر € وتطبيق الاستكمال في كل‎ 
عدم الاستقرار الذي قد يظهر في بعض الفترات الضغيرة هن‎ Galas ويذلك‎ ceo 
إحدى الطرق المشهورة لتجزئة فترة الاستكمال إلى فترات صغيرة وإيجاد كثيرات‎ . SLE 
ومن‎ «Piecewise Polynomial Function حدود مختلفة تسمى دالة كثيرة حدود تجزيئية‎ 

ثم OW‏ الدالة التقريبية هي عبارة عن تجميع من هذه الدوال» و تعرف با يلي : 
نعرف الدالة f(x)‏ بدالة كثيرة حدود E E‏ إذا GF‏ : 
fo) = pi)‏ لكل XE[X Xi]‏ و 7-1 ,...,2 ,0,1- i‏ 
xxix, SEV ceeds‏ عقد fx) WU‏ على الفترة ue [ab]‏ إن: 
XX 9X,9..uX. SK = OD‏ 4 


ASY P m كثيرات حدود من الدرحة‎ P(X), Pi), ....Da-i(X) 9 


١ 3 >‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


بصورة عامة dls‏ الشريحة S(x) Spline functions‏ من الدرجة m‏ على المترة 
X, = bolo [abl‏ > × > ... > ر × > ,× >< = 2 هي دالة كثيرة 
حدود نتجزيئية بحيث إن : 

[X :.3* ,,[ على الفترة‎ S(x)- pi(x ( 

حيث إن ) *«):2 كثيرة حدود من الدرجة m‏ على الأكثر و تحقق : 
pP" (x p= BIO un‏ لكل (ES D2,:4-1 J de 1 Qe ty‏ 
كفي X Conceived]‏ بالعقد الداخلية. والأكثر شيوعا من بين هذه الدوال هي 
الدالة الشريحة التكعيبية من الدرجة الثالثة. 


Cubic Spline function دالة الشركة التكعيبية‎ 0,51١ 

fS‏ دالة معرفة على الفترة [a,b]‏ حيث إن A ... > Xa >>: =D‏ ديدح ع 
فنقول إن دالة الشريحة S(x)‏ هي دالة شريحة تكعيبية و تستكمل f‏ عند العقد 
و لودو Xyk‏ كات tse‏ 

SX) "‏ وهي كثيرة حدود من الدرجة الثالثة على الفترة xl‏ لكل 
n-1‏ ,1,0 ,0 — 4 

470,1, aon لكل‎ S(x,)ef(x,) * 
E90 4,2, لكل 2غ‎ Sla باخ لبي‎ x لمم‎ 
£015 o #2 SS Salty) = Sea) 
(=0,1,2,..,n-2 لكل‎ Si(x,)2 S (x) * 
: بكرن محتقا‎ WH Gd لسك الشروط‎ s 


استكمال وتقريب الدوال على AT MATLAB‏ 


C de) ts صق‎ S (x,)- 0G 

S (x) fh S Qo f) Gi‏ (حد مقيد) 

الشريحة التكعيبية تسمى الشريحة الطبيعية عندما يتحقق شرط الحد الحرء ولكن 
الشروط المقيدة الحدية تؤدي إلى تقريب أكثر دقة» لأنها تحتوي على معلومات أكثر 
حول الدالة. ويمكن كتابة الدالة التكعيبية على الشكل التالي : 

S. (x) 2 a(x—x,) +b(x-x,)° +¢(x-x,)+d, 

eu‏ إن d;‏ , © , , 2, , © لكل ١-1‏ , ... ,1,2 ,0 =: هي الثوابت التي يتم 

Lii‏ على MATLAB‏ فإنه يوجد spline interp! Jigs‏ للتعامل مع الشريحة 
التكعيبية وفق المثال رقم (1,1). 


مثال رقم )5 ,5 ( 

y={3,1,0,2,4} »x-(0,1,2,3,4] XJUl y 5x ai SS 
مع رسم‎ (cubic spline) باستخدام الشرحة التكعيبية‎ × = 1.5 Je y Jul isa Jo ol 
. الدالة‎ 


: fel 


نوجد قيمة الدالة y‏ عند 1.5=× كما يلى : 


>>x=/01234 J; 
>>y=/31024 ]; 
>> xval = 1.5; 
>> yval = spline(x,y,xval) 
yval = 

0.1719 


145 استخدام MATLAB gl y‏ في الرياضيات الجامعية 


ويمكن الوصول لنفس النتيجة بالأمر التالي : 


YY - ppval(spline(X, Y), XX) 


: فيتم بالخطوات التالية‎ interpl استخدام‎ ui 
>> p = interpl (x,y ,[1.5], spline!) 


P 
0.1719 


>> xx = 0:.1:4; 

>> yy = spline (x,y,xx); 

>> plot (x,y, O0, XX YY) ; axis ([0 4-1 4 J); 
>> xlabel ( 'x-axis' ) ; ylabel (‘y-axis’) 
































e points x 


spline yy 





Er 0.5 1 15 2 25 3 3.5 4 
X-axis 


الشكل رقم Y)‏ ,3( رسم كثيرة الحدود الناتجة عن استكمال الشريحة المكعبة . 


Least squares approximation تقريب بطريقة أصغر المربعات‎ (VY) 
قري علي القطاء‎ LL تسيا سن‎ LS فل‎ Ilo aL] al 
حصلت ف أثناء جمعهاء فإن عملية التقريب تتعلق بإيجاد دالة مطابقة للبيانات»‎ 


استكمال وتقريب الدوال على ۱۹٥ MATLAB‏ 


واختيار أحسن دالة لتمثيل هذه البيانات. وينصح بطرائق أصغر المربعات المتقطعة عندما 
تكون الدالة معيئة ببيانات نقطية قد لا تمثل قيما حقيقية لدالة. في هذه الحال يكن 
died‏ السات اة اغد كلا كظا أو بتر اك i‏ عاو آخرى: أا addas‏ 
مثلثية. و ليس من المهم أن نحصل على كثيرة حدود ذات درجة عاليةء ولكن الأهم أن 
09S‏ انسيابية ويس سى الوالم تطايق oU LAU‏ بسب sd o] d eai ME‏ 
تجميع للبيانات » Wee‏ إذا جمعت بيانات لتجربة ماء و كانت كما يلي : 


X; 1 7 3 3 5 6 1 8 9 10 
Yi iS 35 4.2 5.0 7.0 8.8 10.1 12.5 13.0 15.6 




















ونريد إيجاد دالة خطية تمر بهذه القيم/ (xi, yi‏ باستخدام نظرية تقريب أصغر 


: وهو‎ Absolute deviation 


m 


2, ly, (ax, +B) | 


i = | 


حيث إن 50 + (ax;‏ هي القيمة على الخط المستقيم التقريبي AVS‏ قيمة y‏ 
المعطاة عند ci‏ و m‏ هي عدد النقاط المعطاة. إن طريقة أصغر مربعات تعتمد على إيجاد 
أقل قيمة للانحراف المطلق حيث إنه يعد أحسن تقريب خطي » لذلك يتطلب إيجاد قيم 
ه و b‏ حتى نتمكن من تقليل نسبة الخطأ إلى الحد الأدنى. ومن ثم حساب : 


n 


e= D> [y, - (ax , * b)l — — (* ) 


L=] 


طريقة أصغر مربعات تكون أكثر إجراء ملائم لتحديد أحسن تقريب خطى › 
لا يسمح للنقاط الخارجة بالسيطرة الكاملة على التقريب. نريد الآن تقليل المقدار إلى 


۱۹٦‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 
ا لحد الأدنى بالنسبة للمتغيرين © و طا » ولكى نحصل على ذلك لا بد أن يكون : 


8 m | TER | 
ddr rz T - (ax , +b) 113 (y,-ax, —b)(-x,) 
p=] r=! 


Ó m | m | 
pec pg EP) = BD, Dc a6; B MD) 
rsd 1-1 


نبسط هاتين المعادلتين إلى المعادلتين العاديتين normal equations‏ : 


"m m m 

| 5 7 J , 
ay af sO ger an 

pS D —1 I 


Es 7 0 252 ay, 
jasA P | j=l E 
i=] i=] 


coL yc oly puch sled OLLI le EUS gules,‏ إلى خط 
مستقيم. حيث إل فيمتي d‏ و oS b‏ حسابهما كما يلي : 


استكمال وتقريب الدوال على MATLAB‏ ۹۷ 


ا )55(81 - )10(572.4 = „ 
)55( -)10(385 


g ,285(81)-59(572.4].— معدو‎ 
10(385)- (55)! 


يمكننا الرسم بعد أن حصلنا على القيم التقريبية بوساطة أصغر مربعات لنقط 


8 y = 1.588x-0.36 


y - axis 


0 2 4 6 8 10 
X - axis 


الشكل رقم (,5). تثيل لكثيرة الحدود الخطية الناتجة عن أصغر مربعات. 


ود ا عام لع — i dis ye‏ اللبانبات 


hr oe yt P m 1,9, eam}‏ إل چو ورد daza ud‏ اخ 


المربعات تقوم بنفس الأسلوب»› (el‏ يطلب هنا اخيان ER: Em cals‏ 
el Lbs uaa ce‏ اوبات ipa 3443-88 AS SL] dab. God J‏ 
الدرجة n‏ لنقاط بيانات x‏ بطريقة أصغر مربعات على MATLAB‏ تتم باستخدام 
le‏ تسمى Libs co » polfit‏ معاملات كثيرة المدوذ ) p, (x‏ . كذلك Luss‏ 
Lel‏ قيم لكثيرة الحدود تساعد في رسمها بدقة بدالة تس 
خوارزمية CUY)‏ للشكل العام لأصغر مربعات General Least Squares‏ وتدعى 
eu [15] fgenfit!‏ یک استعمالہا في تقريب Ac gad A‏ من البيانات إلى كثيرة 


حدود مئاسبة للبيانات. 


مى .polyval‏ وهناك 





function c = fgenfitl (func,x,y) 
n = length(y); 
[p.]j] = feval (func,x(1)); 
A = zeros(p,p); b = zeros (p,1); 
for 1 = l:n 

[ij.£] = feval (func,x(1)); 

for j= 1:p 
for k= Lp 


Aris ArI 
MII ريا‎ AI KIT 
d] 5 | | |: i | | th ih 1 PA 1 s EX. | a E 





(Y) خوارزمية‎ 


CTY) مثال رقم‎ 
LL عقك‎ y -sin(l/(x 0.2)) 4- 0.2x UAW Lue Ly 2 Le ol 
: 4JUJI 


xs =[0:0.05:0.25 0.25:0.2:4.85] 


استكمال وتقريب الدوال على j 43 MATLAB‏ 


وبنسبة خطأ 0.06 » مع مقارنة أمر fuenfit]‏ بكثيرة الحدود من الدرجتين الثالثة 


à polfit والخامسة‎ 


ا حل : 


نوجد كثيرة الحدود feenfitl yl‏ وذلك بتعريف الدالة 3/ m-file(3‏ : 
دع وج , ))0.2* z,=1 , z,=sinjl/(x‏ 


function [df,z] = f3(xs) 

[n] = size(xs);df = 3; z = zeros (df,n); 

z(1,:) = ones (1,n) ; z (2,:) = sin (ones(1,n)./(xs+0.2)); 
H= 


نعرف البيانات مع نسبة الخطأ كما يلي : 


>> ys = [0:.05:.25 .25:.2:4.85]; 
>> us = sin (ones(size(xs))./(xs+.2))+.2*xs +0.06*randn(size(xs)); 


: eo اخدود كما‎ 3 SS لنحصل غلى مخاملات‎ 1 m Jaj 
>> xx-(0:.05:5; 
>> c-fgenfitl f3 xs, us) 
c= 
-0.0049 
1.0716 


0.1943 


فيمكن ALS‏ 2$ الحدود كما يلى : 


p (x)= -0.0049+ 1.0716 + 0.1943<* 


Nae‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


[jp] = feval (f3',xx); 
yy = cp; 
plot (xs,us, 'o".xx,yy) 


برسم coss‏ الحدود وم ووم على نفس الرسم polyfit yal,‏ الشكل رقم )1,8( 
كيبا gl:‏ > 


p3 = polyfit (xs,us, 3) 


0.0787 -0.6263 1.4811 -0.0368 
yv3 = polyval (p3,xx); 
plot (xx,yy3,'--') 
hold on 
pd = polyfit (xs, us, 5) 
p? = 
0.0505 -0.6821 3.3577 -7.2294 6.3426 -0.6581 
yy? = polyval (p5, xx, J; 
plot (xx,yy5) 
axis ([0 5 -1.5 1.5]); xlabel ("x - axis '); ylabel (‘y - axis'); 
title (' plot Data points & poly. by fgenfit عل‎ p3& p5'); legend 
('data' faenfit67' 'yy3', y5); 


تجد مما سبق أنه يمكن رسم منحنى تقريبى لأي دالة بأمر 51 حيث إنه من 
الممكن التحكم بدرجة كثيرة الحدودء ولكن لا يعطينا نتائج مثالية. وأما في أمر 
1 فإنه مبرمج على أن يختار أحسن درجة لكثيرة الحدود تناسب البيانات 
المعطاة» وبذلك نحصل على منحنى تقريبي مثالي» كما لاحظنا أن نسبة الخطأ بين 
كثيرات الحدود الناتجة والدالة المعطاة y‏ هي الأقل بأمر eenfit1‏ 

من المناسب UL d‏ أناتفعرض Of‏ العطيات Lad ila ja‏ بيبها pte aas ced‏ 
أن الدالة المقربة هي من الشكل y=bx » y=be™‏ أو دالة كسرية » فيمكن استعمال 
أوامر MATLAB‏ الجاهزة للتعامل معها » كما في المثال رقم CVA)‏ 


استكمال وتقريب الدوال على , Ya) MATLAB‏ 


plot Data points & poly. by fgenfit & p3& p5 





1.5 
Á 
ر‎ X" Jg 
"- —— a HS i, 75 
1 w — iir m ng C 2 F 
i ^T —Á 2 LI O ا‎ 
1 ,U ba, et E PA 
d 7 
05+ [! ^ 
Hoy 
i” 
0 A 
© 0 
= 
i 
-0.5 
data 
fgenfit 
ME ĉl yya 
-— M BA yyo 
-1.5 
0 0.5 1 1.5 2 2.5 3 3.5 A 4.5 5 
X - axis 


الشكل رقم (5.4). تمثیل لكثيرات الحدود P3 & P2‏ & 55 الناتجة عن أصغر مربعات 


مثال رقم (1A)‏ 


: 4JUJI لدينا السانات‎ 
x= [0:0.25:3] 
y= [6.3806 ,7.1338 ,9.1662 ,11.5545 ,15.6414 ,22.7371 ,32.0696 ,47.0756 ,73.1596, 
111.4684, 175.9895 ,278.5550 ,446.4441] 
: الات‎ deed غل‎ oth ol tS أوجد‎ -1 
1.fi(x) = a + be“ + ce? (fgenfit P (استعمل‎ 
2.f,(x) =a + b/(1+x) + )اك‎ 1 (7 (fgenfit (استعمل أمر‎ 


3.f(x) > a + bx + cx’ *dx? (polyfit M (استعمل‎ 


Nw‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


Y‏ 7 ارسم الدوال الثلاث والنقاط y)‏ أي منها يمثل أقرب منحنى للنقاط 
المعطاة؟ Lele‏ ا القيم aj ia]‏ من لني .3 fix) zx 3 X: Ie‏ مع إضافة تغيير صغير 


ال 1 
نعر ف الدوال f11(x)‏ و f22(x)‏ على شكال m-file‏ : 
pe‏ و 8 على 


function [d,z] —f1 I (x) 
[j,n] =size(x);d=3;z=zeros(d,n); 
z(1,:)—ones(1,n);z(2,:) -exp(x);z(3,-) -exp(2. *x); 


function [d,z] -f22(x) 
[], n] =size(x);d=3,;z=zeros(d,n); 
z(1,:) -ones(1,n);z(2,:) -(ones(1,n)./(1--x));z(3,:) ^ (ones(1,n)./((x^- 1).^2)) 


í y مع النقاط‎ f3 و 2 و‎ fl طريقة إيجاد الثوابت ورسم كثيرات الحدود‎ Ul 


x = [0:0.25:3]; 
y = [6.3806 7.1338 9.1662 11.5545 15.6414 22.7371 32.0696 47.0756 
73.1596 111.4684 175.9895 278.5550 446.4441]; 

xx = [0:.05:3]; 

fl = fgenfit"f11 x y) 

[p] = feval(f11 xx); yyl = (Dp; 

J2 =fgenfitl (f22',x,y) 

[p] = feval('f22' xx); yy2 = (f2)'*p; 

xx = [0:.05:5]; 

p = polyfit(x,y, 3) 

yy3 = polyval(p,xx); 


استكمال وتقريب الدوال على qo MATLAB‏ 


plot (x,y,'o'xx,yyl,xx,yy2,xx,yy3) ; xlabel ('x axis’); ylabel ('y axis’); 
title (figure(1) f1,£2 by fgenfit and f3 by polyfit'); legend (‘y',’yy1’,'yy2','yy3') 


fi = 
3.12/76 
1.981] 
1.0000 


I.0e + 003 * 
0.6851 
-2.0722 
1.4438 


5.2803- 103.4153 128.3479- 47.3747 ` 
يداف اله كا رقم )4,0( أن oa om)‏ الجدود الثلاث هى : 


i) f(x) =3.1276 + 1.9811e* + e^ 
i) f(x) = 685.1 — 2072.2/(1+x) + 1443.8/(1 +x) 
iii) f(x) = 47.3747 x? - 128.3479 x? + 103.4153 x - 5.2803 


f1,f2 by fgenfit and f3 by polyfit 


500 





y axis 








-100' | - ظ‎ 
0 05 1 15 2 25 3 
X axis 


الشكل رقم )4,0( رسم الدوال 3 & 2( & tt‏ مع نقاط الدالة الأصلية. 


VY. §‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


Fourier Analysis 223 JAS (4,8) 

Fourier Series متسلسلات قورير‎ (1,6,1) 

يمكن أن ينتج تقريب عدد كبير من النقاط الموزعة بانتظام بواسطة كثيرات 
حدود مثلثية ننائج دقيقة جدا » وهي طريقة التقريب المناسبة للاستخدام في مجالات 
كثيرة » كالأجهزة التي تحتوي على مصفيات عددية» أو في الموجات التي يتم استقبالها 
في البوائيات» وكذلك في الميكانيكا وغيرها من المجالات. إلا أن هذه الطريقة لم تطبق 
كثيرا حتى منتصف عام ca Tr‏ وذلك بسبب الحسابات العديدة اللازمة لتعيين 
الثوابت فى عملية التقريب» إذ إن استكمال 2m ste‏ من النقاط بالطرائق الحسابية 
المباشرة يتطلب حوالي Qmy‏ عملية ضرب› ومثلها عملية جمع. وقي عام ١1165‏ م 
تشر ت de Lo‏ 2 مساب taal S‏ كشرة الك وة CASE] LT Se E‏ وبعدد 
حسابات أقل » بشرط أن نختار m‏ بطريقة مناسبة. وأحدثت هذه الطريقة ثورة في 
استخدامات كثيرات حدود الاستكمال LM‏ وعرفت يخوارزمية نحويل فورير 
السريع . 

وتعرف متسلسلات فورير للدالة (/الدورية ودورتها 2n‏ كما يلى : 


C aO a 
Fis "ua + 2 8 cos(nt ) + 2. s, sin(nt ) 
n=] n=] 


حيث إن الثوابت 3,4 و ۾ تعرف كما يلى : 


É = 3 1 (t ) cos(nt )dt 
LM 


s, = = [/ (f )sin(nt )dt 
a =w 


استكمال وتقريب الدوال على Yao MATLAB‏ 


MATLAB (35‏ فإنه من الممكن إيجاد ثوابت متسلسلة فورير ورس مها بدقة 


ووصوح. 


مثال رفم (4.؟) 
أوجد متسلسلة فورير للدالة f(t)— sint) cost)?‏ على الفترة ]777,77[ والثوابت 
Sa‏ 3 و بالرسم. 


a 


function F — fun (T); 
F = sin (T). “(cos (1).^2); 


ونعرف الدالتين gfe‏ على شكل m-file‏ كما يلي : 


“oC 

function Y = fe (T); 
global n 

Y = fun(T).*cos (n.*T) 
oo S 

function Y= fs (T); 
global n 

Y= fun (T). “sin (n. "Tj 


نستخدم للتكامل دالة quads.‏ على الفترة HU, T]‏ ونجمع الحدود لكوي كثيرة 
حدود فورير النهائية ل. نرسم الدالة الأصلية f‏ و الدالة الجديدة cy‏ وكذلك نرسم 
المعاملات بالأوامر التالية (الشكل رقم CU‏ : 


global n; T = -pi:.Ül:pi ; Y = 0*T; 
for nl= 0:20 
nnl; 
c = quads ("fc ,-pi,pi)/pi; 
if n == 0,c = c/2 ;end 
s < quadB(W pipi 3 





الشكل رقم ,£3 رسم متسلسلة فورير للدالة Ssin(t)^2* cos(t)^2‏ . 


استكمال وتقريب الدوال على , Y.V MATLAB‏ 


من خلال الشكل رقم CVV)‏ نجد أن 5 , ,5 تساويان 0.25 وأما باقي الثوابت 





Fig(2) plot of the coefficient: Cos, Sin 
0.3 zr mri m x 1 == iom r ER ¬ 
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d 
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الشكل رقم )¥( e)‏ ثوابت متسلسلة فورير Cn $ Sn‏ . 


Fourier Transforms pj SWS 60م‎ 

بعد تحويل فورير من أهم وأكثر التوابع استخداما » حيث يساعدنا على تحليل 
البيانات لمعرفة JI‏ 33( وهذا مفيد جدا لمعرفة ا حتوى الترددى للبيانات وتستخدم 
المصفوفات للتعبيرعن صورة أو إشارة صوتية أو غيرها. نعرف تكامل فورير للدالة fít)‏ 
الدورية» والتي طول دورتها 1 » على الشكل : 


fury fe (v ) cos(27zvt )dv + [s (v )sin(2avt )dv 


() 


استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


A 
حيث إن — = « التردد لدالة متغيرة مع الزمن ويعبر عنه أيضا بالصيغة‎ 
المركية اللأسية:‎ 


JT XT p fe (v )exp(i 27tvt )dv 


وبشكل PE‏ يمكن التعبير عن g(v)‏ كما يلى : 


g(v)= [/ (f )exp(- i 2 )dt 


= 00 


g(v)- [/ (f (1 cos(-2zvt ) + i sin(—2z7vt )idt 


za [o 


= IE (ft )cos(2zvt )dt - i In i SI avt diana] 


فعندما تكون الدالة fft)‏ زوجية » فإن التكامل الثاني يكون صفرا » وتتحول 


الدالة g(v)‏ إلى دالة حقيقية. أما إذا كانت الدالة fy‏ فردية » فإن التكامل الأول 


ALS دالة‎ eal g(v) الدالة‎ J a3 يتلاشى‎ 


OL (1, 6,1)‏ فورير المتقطعة Discrete Fourier Transforms (DFT)‏ 
لتحليل موجة نبضية من حيث التذبذب البسيط على سلسلة من الفترات 
a)! | óf ak —1,2,..‏ 6 


em: = ٤ لک ۴ہ ۾‎ (Ls 


MATLAB استكمال وتقريب الدوال على‎ 
g(v,)- |f )( ج28 تحامعه‎ , jdt = St ررح‎ ()exp(-i 2a ,t,) 
me k=l 


وقي كل مجموع يعطينا قيمة ل g(v)‏ عند التردد Jos cvs‏ فورير البسيط 
Simple Fourier Transform‏ يعرف sft UWL‏ (خوارزمية 1,5) التى تنفذ نحويل فورير 
البسيط على ]6[ MATLAB‏ كما يلى» لاستخدامها فى العديد من الأمثلة. 


Yo Simple Fourier Transform 
function G = sft( T, F,N); 
dt- T(2)-T(1); 





خوارزمية (5,5). 


والمثال رقم CY)‏ يوضح استخدام MATLAB‏ 3 رسم كثيرة الحدود i e UJ‏ 
عن حور LM‏ فورير بسيط لدالة الحا Transform of a Sine Function‏ . 


مثال رقم )* CT,‏ 


أخذت عينة تحتوى على 1001 نقطة من البيانات› ليك لدينا الثوابت التالية: 
.a=(2/n) s n-2‏ 


ارسم دالة تحويل فورير للدالة (sine)‏ وكذلك المعاملات (ba)‏ 


و 1 T‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


في البداية نعرف الدالة التالية على شكل m-file‏ وهى تساعد في تعريف الدالة 
۴ الوحدة النبضية ]6[ : 


% Rectangular Pulse 
function up = unitpulse (x,y,z); 
up — unitstep (x-y) - unitstep(x-z); 


CLA) 


nn = I001; 

n=2; a=2/n; w = 2*pi*n; 

t= 2a; 

dt = 2*t/(nn-1); 

T = -t :dt :t; 

F = sin (w*T). *unitpulse (T,-a,a); 
figure (1), plot (T,F);grid on ; 

N = linspace (-12,12,100); 

G = sft (T,F,N); 

W = 2*pi*N; 

Gm =(sin (a*(W+w))./(W+w) - sin(a*(W-w))./(W-w)); 
figure (2), plot(N, real (G), 'o', N, imag(G), '*', N, Gm), grid on 


Fig(1)Thefunction f(t) 








اڪس 


function f(T) 





05 -0.4 -0.3 -0.2 -0.1 O 0.1 0.2 0.3 Q.4 0.5 
time t 


استكمال وتقريب الدوال على MATLAB‏ ۲۱1 


نلاحظ من الشكل رقم CUA)‏ أن المعاملات (an)‏ الحقيقية كلها صفرية» و ذلك 
لآن دالة (sine)‏ عبارة عن دالة فردية. 


PARE: of Sine Fourier transform a real part and imag pen 


mm 


Fourier transform: real(g)-o, imagí(cg)-"* 





frequency 


الشكل رقم )3,5( رسم النوابت الحقيقية )0( و التخيلية )9( فورير sine‏ 


Inverse Transform of Fourier العكسية‎ yy تحويلات‎ (٦,٤, ٤( 

قد نحتاج إلى الطريقة العكسية» وذلك الحصول على الدالة fft)‏ من g(v)‏ 
معلومة» وهذا ما يسمى بتحويلات فورير العكسية «Inverse Transform of Fourier‏ 
ويتم ذلك في MATLAB‏ بالدالة (خوارزمية (V0‏ 2# ونلاحظ أن الفرق بينها وبين 
sf‏ هو التبديل بين متغيرات المدخلات والمخرجات ]6[ . 


Function f-isft(n,g,t); 
D= STIR: 





خوارزمية )4,8( 


TAY‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


EP) رفم‎ MI 
ue deam ويل فورير‎ Cede gb (1) = te" UW ليكق‎ 
a-50 وحيث إن‎ (fO الدالة 6 » استخدم الدالة 6 لإيجاد تحويل فورير العكسى‎ 


ا حل : 

نطبق دالتي اوا وا ونلاحظ من الرسم الأول (الشكل رقم )1,٠١‏ 
المعاملات التخيلية للدالة (G)‏ وهي التي نريد oL]‏ فورير العكسي لباء والتي تشبه 
تماما الدوال الفردية. كما نجد من الرسم في الشكل رقم )1.1١(‏ انطباق (A)‏ دالة 
التحويل العكسي على الدالة الأصلية f‏ ويدل الرسم أيضا على أن (A)‏ عبارة عن 


دالة ذات قيم حقيقية. 


2000 
1500 | 


1000 


200 


-200 


real{g)= o, imag(g) 
d» 


+ | 
* | 
+ | 
+ | 
| 
+ | 
-1500 | *- | 
+ | 

| 


-2000 = | | 
-0.04 -0.03 -0.02 -0.01 0 0.01 0.02 0.03 0.04 


frequency 


الشكل رقم .)٦,٠١(‏ رسم الثوابت الحقيقية )0( و التخيلية (*) لدالة فورير 6)0 . 


استكمال وتقريب الدوال على YAY MATLAB‏ 
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الشكل رقم Y)‏ ,3( رسم الثوابت الحقيقية )0( لدالة فورير العكسي (ft)‏ والدالة (f)‏ . 


)1,0( دوال رمزية لتحويل فورير 

توجد دوال جاهزة لتحويل فورير بالبيئة الرمزية Symbolic Fourier Transform‏ . 
فعلى سبيل المثال » إذا كانت لدينا الدالة المعرفة في المثال السابق ^ te"‏ -)/ 
فتحويل فورير لبذه الدالة باستخدام syms‏ يتم بالأمر fourier‏ : 


syms a t real 

a-—30 

g—fourier(t*exp(- t^2/a^2)) 
ans 


g—-62500*i*pi^(1/2)*w*exp(-625*w^2) 
: ifourie إيجاد حویل فورير العكسي للنتيجة بالأمر‎ OS وكذلك‎ 


>> syms wi 
>>f= ifourier(g,w,t) 
ans = 


t*exp(-1/2500*t^2) 


¢ ۲1 استخدام برنامج MATLAB‏ في الرياضيات ال جامعية 


OL å (^,£,*)‏ فورير السريع Fast Fourier Transforms‏ 
تعد الدالة 0۲ من الدوال الجاهزة في MATLAB‏ وتحسب تحويل فورير المتقطع 


انه تمر 
y = ffi(x,n,dim)‏ 


هذه الدالة dene‏ على أن تعمل على خوارزميتين لحساب تحويل فورير» حيث 
تستخدم الخوارزمية الأسرع عند وجود عدد b‏ بحيث يحقق هذا العدد العلاقة ^2 n=‏ 
SI)‏ عندما يكون عدد النقاط n‏ من قوى 2) وعند عدم Gat‏ ذلك يتم تنفيذ الخوارزمية 
ببطء» وهناك من يضيف أصفارا ليصبح عدد النقاط من قوى ۲ لغرض السرعة. يمكن 
إيجاد الثوابت الحقيقية (Cr)‏ والثوابت التخيلية (,5) باستخدام offi‏ لتعبر عن نحويل 
فورير المتقطع (DFT)‏ » ونبين في الجدول رقم CL‏ دوال أخرى تحسب تحليل فورير 
والتحليل العكسي في أبعاد مختلفة. 


الجدول رقم )8,3( دوال التحليل الفورير. 








(Discrete Fourier Transform) ويل فورير المتقطع‎ fft 
(Inverse Discrete Fourier Transform) حویل فورير العكسي المتقطع‎ ifft 
( Discrete Fourier Transform 2-D) الثاني‎ JJ! ويل فورير المتقطع‎ fft2 
(Discrete Fourier Transform n-D) النوني‎ Ax JI ويل فورير المتقطع‎ ffin 
(Inverse Discrete Fourier Transform 2-D) يل فورير المتقطع العكسي البعد الثاني‎ P Ifft2 


(Inverse Discrete Fourier Transform n-D) [e العكسى البعد النو‎ ae يل فورير‎ veo iffin 


استكمال وتقريب الدوال على Yo MATLAB‏ 


(TIN) مثال رقم‎ 
: كعايلن‎ y cls إذا‎ 
y = [2, -0.404, 0.2346, 2.6687, -1.4142, -1.0973, 0.8478, -2.37, 0, 2.37, -0.8478.... 


1.0973, 1.4142,-2.6687, -0.2346, 0.404, -2 ,1.8182, 1.7654, -1.2545, 1.4142, -0.3169, 
-2.8478, 0.9558, 0, -0.9558, 2.8478, 0.3169, -1.4142, 1.2545, -1.7654, -1.8182]. 


وهى عبارة عن قيم دورية عددها 32 «Max‏ أخذت هذه العينة بفرق 0.1 من الثانية بين 
Ay etd E EET‏ التخيلي من تحويل فورير المتقطع DFT‏ 


. fi بأمر‎ MATLAB باستخدام‎ 


. DFT عن محويل فورير‎ UW) ارسم الجزء التخيلي والحقيقي‎ 7 Y 
ار‎ 
: DFT فورير المتقطع‎ b sg يقة إيجاد الجزء الحقيقي والجزء التخيلي من‎ 


y = [2 -0.404 0.2346 2.6687 -1.4142 -1.0973 0.8478 -2.37 0 2.37 -0.8478 
1.097 1.4142 -2.6687 -0.2346 0.404 -2 1.8182 1.7654 -1.2545 1.4142 -0.3169 - 
2.8478 0.9558 0 -0.9558 2.8478 0.3169 -1.4142 1.2545 -1.7654 - 1.8182]; 

v= 0:31; s = sum (y); 

yl = fft (y); 

s = 4.4409e-016; 

real(y1);imag(yl); 


طريقة رسم الجزء التخيلي والحقيقي للقيم الناتجة عن تحويل فورير المتقطع 


:CUY) تتم بتنفيذ الخطوات التالية وينتج الشكل رقم‎ DFT 
nt = 32; T= 3.2; dt = Tnt 
df = 1/T 
fmax = (nt/2)*df 
t = 0:dt:(nt-1)*dt; 
J = O-df: (nt-1)*df; 
figure (1); 
subplot (121); bar(real (y1),'r'); axis ( [0 63 -100 100] ) 


TAT‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


subplot (122); bar (imag (y1), Y"); axis([0 63 -100 100[) 
fss = :ذا‎ (nt/2-1)*df; 

yss = zeros(1,nt/2); yss (1:nt/2) = (2/nt)*y1(1:nt/2); 
figure(2); 

subplot (221); bar (fss,real (yss), r"); axis ( [0 10 -3 3] ) 
subplot (222); bar (fss,imag (vss),'r'); axis ( [0 10 -3 3] ) 
subplot (223); bar (fss,abs (vss),'r'); axis ( [0 10 -3 3] ) 


plots of the real and imaginary part of the DFT 
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frequency Hz 





abs (LET) 
إن‎ N 0-9 W 





frequency Hz 


الشكل رقم (Y Y)‏ رسم للجزء الحقيقي والتخيلي لمتسلسلة فورير المتقطعة وطيف التردد . 


استكمال وتقريب الدوال على Y NN MATLAB‏ 


)4,8( تمارين 
١5‏ ب استخدم كل sS us NI Sea‏ المد كورة في الفصل و قارن النتائج بالرسم : 


x=[-202345] 
f(x)= [4 0 -4 -30 -40 -50] 


: باستخدام طريقة أصغر المربعات‎ (xy) أوجد الدالة التي تمر بالقيم‎ 7 Y 


x-[0 .005 0.0075 0.0125 0.025 0.05 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1] 
y-[0 0.0102 0.0134 0.017 0.025 0.0376 0.0563 0.0812 0.0962 0.1035 0.1033 
0.0950.0802 0.0597 0.0340 0] 


fft باستخدام‎ f = A*sin(w,T) *unitpulse(T ,-a,a) ( Í 


[-a, ^ [ على الفترة‎ [sin(w h) ب)‎ 


-t for t€0 | 
t Jor fcu 


]-10,10[ على الفترة‎ ro-| 


5 - استخدم قانون نيوتن للفرق التقدمي لإنشاء كثيرة حدود من الدرجة 
الأولى» الثانية و الثالثة للنقاط غير المتساوية المسافة المعطاة بالجدول التالى : 


X f(x 

Ü -6.0 
0.1 - 35 
0.3 -5.65014 
0.6 -5.17788 


1.0 -4.28172 


TAA‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


- قرب )5 .۴)0 باستخدام قانون نيوتن للفرق من الجدول التالى : 


X f(x) 

() 1.0 
().2 1.22140 
0.4 1.49182 
0.6 1.82212 
0.8 2.22554 


-٦‏ أوجد كثيرة حدود استكمال لاغرانج من الدرجة الثانية والتي تر بالقيم في 
الحدول السابق. 


-V‏ قدر f(0.5)‏ عن طريق كثيرة حدود استكمال لاغرانج من الدرجة الثالثة 


ww) te) 


ee 66 


MATLAB على‎ di ptio dual: مواضبع‎ 

يمكن استخدام MATLAB‏ في مجالات رياضية عديدة» كما يمكن تسخير قدرات 
MATLAB‏ في الرسم و البريجة في تسهيل تطبيقات مختلفة. بالدخول على الموقع الرسمي 
للبرنامح http: // www.mathworks.com‏ نستصيع G al‏ على Ste!‏ التطبيقات 
والكتب المنشورة في OVE‏ الرياضية والبندسية. كما يحتوي MATLAB‏ على برامح 
متخصصة تدعى toolboxes‏ 3( مجالات عديدة مثل الاتصالات Communication‏ 
«toolbox‏ والمنطق المشوش Fuzzy logic toolbox‏ » والشبكات العصبية الصناعية Neural‏ 
«Network toolbox‏ والاقتصاد Financial toolbox‏ وغيرها. نستطيع الوصول لمعلومات 
عن هذه البرامج م نافذة ماعط كما هو موصح في الشكل رقم bs AVN)‏ 9( في هذا 
JI‏ لبعض المواضيع dol, JI‏ المتفرقة بشكل مبسط › ولمزيد من التعمق نصح 


Vector Calculus حساب المتجهات‎ (V, Y) 
موضوع حساب المتجهات يتطلب معرفة المفاهيم الرياضية للمتجهات›‎ 
ما » هو الخط المستقيم المتجه من نقطة الأصل لمحاور‎ Xa) فا مقصود بمتجه الموضع‎ 
فالمتجه )1,3 ,5-(= © وهو متجه الموضع للنقطة‎ a الإحداثيات الكارتيزية والنقطة‎ 


T1 


a -)-5, 1,3)‏ . ويتم إدخال المتجه في MATLAB‏ بالأمر ]1,3 ,5-]- a‏ . 


3 He >=- m] 
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(£495 Release Notes 
اقم‎ Installation 





a MATLAB EXE CET 
dF Excel Link release 14 
H$ MATLAB Builder for COM | 
[e MATLAB Builder for Excel | | 
If You Are Upgrading from a Previous Release... 

S MATLAB Comgiler PS أنا‎ 
+ of MATLAR Report Generator E Release Notes 
ea MATLAB Web Server Summarizes new features, bug fixes, upgrade issues, atc. 
[e E Bioinformatics Toolbox 
f+ Communicatiors Toolbox s Video Tutorials 

p [e B Control Syster Toolbox Seven audio-video tutorials are the best way to leam the new features in‏ ادم المتختصصة 

| + Curve Fitting Tcolbox MATLAB. 
Too lb OXxXeS + Data Acquisition Toolbox | 
|| FF Database Toolkox If You Are Using MATLAB for the First Time... 

e+ Datafeed Toolbox 
m D Filter Design Toolbox At the heart of MATLAB is a new language that you must learn before you can 
fei Filter Design HDL Coder fully exploit ts power. This isnt as hard as it might sound; you can learn the 
(£495 Financial Toolbox basics of MATLAB very quickly. You will be rewarded with high-productivity , 


i E Financial ع نا ديت وم‎ THis high-creativity computing power that will change the way you work. 


E Financial Time Series Toolbox If you are a first-time user, the best way to get started is to read thoroughly the 
ie Fixed-Income Toolbox | Getting Stared with MATLAB tutorial with MATLAB open so you can follow 
E Fixed-Point Toolbox | along. The tutorial book comes with MATLAB ard is available in POF and for 


y [e a Furzy Logic Toolbox -| | purchase on the MathWorks Web site. 
gerna of |a en 


. Toolboxes برامج متخصصة‎ (V, Y) e الشكل‎ 








BUM (V.S)‏ بين نقطتين 
باعتبار النقطتين a-(Xiypozi)‏ و (د2,دل,د×)=ط OU‏ المسافة بين النقطتين Distance‏ 
between two points‏ هى طول c= b-G «x‏ ورياضيا هی 


- ونر)‎ - wy - و2)‎ 72a) 





بامستخدام الأمر MATLAB T norm(c)‏ الذي يعطى طول المتجهه يمكننا 
حساب المسافة بين المتجهين» فمثلا طول المتجه الواصل بين النقطتين a7(5,-1,3)‏ 


مواضيع رياضية متفرقة على vy MATLAB‏ 


٠ شو‎ b=)4,2,1( و‎ 
>> a=/[5 -I 3]; 
>> þ=f42 If; 
>> c=b-a; 
>> norm(c) 
ans = 
3.7417 


wm wali 15‏ القياسي لمتجهين 

عملية الضرب القياسى للمتجهين a -(x,yi.zi)‏ و dot product b =(X2,V2,Z2)‏ 
هي ,2ر2 + لرل + āb = XX‏ =< 5, >. أما تنفيذها على MATLAB‏ فيتم 
فإن ذلك يعنى أن المتجهين متعامدان . 


مثال رقم )9 (V.‏ 
عملية الضرب القياسى للمتجهين )1,3 ,2= d.‏ و(5,6-.2)1 5 تحسب : 


— 


«àá,b >= üb = )2()1( + (—5)(1) - (6)(3) 215 , 


>> a=[2 1 3]; 
>> b-[l-56]; 
>> dot(a,b) 

15 


مثال رفم (V. Y)‏ 
أوجند. الؤاوية 6 بين المتجيين )2,1,3(= .b =(1,-5,6)9 d.‏ 


yyy‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


ab | 
0 = we [ir هو‎ d£ JI o ul 
| 
TUER العملية‎ Las al ثم‎ EN ندخل المتجهين‎ MATLAB ا ستخدام‎ L 
> كما يلون‎ 


>> a=[2 1 3]; 
>> b=/1 -5 6]; 


>> acos(dot(a,b)/(norm(a) *norm(b))) 
1.0366 


(V, VY)‏ الضرب الاتجاهي لمتجهير 





| عملية الضرب القياسي‎ 
j k 
anb = RM Z 
J2 9 





وطول هذا المتجه يمثل مساحة متوازي الأضلاع ال محدد بالمتجهين ة و 5 » أما 
تنفيذها فبالأمر ceross(ab)‏ فمثلا LAY‏ الضرب الاتجاهى للمتجهين (1,3-,2)= b‏ 
و a7(,5,6)‏ تُدخل : 


>> a-[2 -1 3]; 
>> b-[15 6]; 


>> c=cross(a,b) 
C= 
-21 -9 77 


مواضيع رياضية متفرقة على vvv MATLAB‏ 


(NV, ,£)‏ الاستقلال "d‏ والارتباط الخطى 

المضاء الا مجاهي V‏ هو مجموعة من المتجهات مزودة بعمليتين معرفتين عليه 
وتحقق خواص معينة خاصة بالفضاءات (إغلاق» chat‏ محايدة» ...) ويمكن الرجوع 
لأي كتاب جبر خطي لمزيد من المعلومات. 

الاستقلال الخطي linear. independence‏ هو أحد المفاهيم الأساسية في جبر 
المتجهات» ويعرف إذا تحققت المعادلة التالية للمتجهات vivas, Va‏ التي تنتمى لفضاء 
V Ael‏ 


ajVjta5Vsta3V4T is „Han V0 


وإذا كان الحل الوحيد هو الحل الصفري aSa 7a57...-ay-0‏ فإن المتجهات 
تسمى مستقلة خطا. أما في حال وجود قيمة غير صفرية بين نه حيث oU i-1,2,3,.... n‏ 
المنجهاث تسمى مرتبطة خطيا. فلمعرفة ما إذا كانت المنجهات b=(4,5,6),‏ ,)1,3-,27(2 
c=(2,0,4)‏ مستقلة خطيا al‏ مرتبطة » ندخل المتجهات كما يلي : 


>>a=[2-1 3];b=[4 5 6];c—[2 0 4]; 


ثم تعرف ٤‏ بيئة syms‏ المجاهيل xyz‏ ونختبر الاستقلال الخطى بالمعادلة 


+ xatybtzc 


>> SYMS X y Z, 
2t VEL er ae RIT] 


ثم VI‏ البرنامج الحل باستخدام الأمر solve‏ : 


>> [xz] -solve(2*x-- 4*y-* ,م‎ -x* "y, 3*xt6*y* 4"z x, yz) 


: xyz المجاهيل‎ e3 على‎ foxy 


x =0 
y =0 
z =() 


ومن ثم المتجهات المعطاة مستقلة خطيا . 

كما يمكننا استخدام رتبة المصفوفه rank(A)‏ لتحديد الاستقلال الخطي 
والارتباط الخطي» فمثلا لتتحقق من كون المجموعة (sss les)‏ مستقلة خطيا في 
الفضاء P;‏ ( فضاء كثيرات الحدود من الدرجة 2 ) ذي البعد Y‏ » نضع معاملات كل 


: rank(A) المصفوفة‎ LS y و نحسب‎ A كافيدة لصفوفة‎ (a ae. S) متغير‎ 


>> A-[0 1 0;0 1 1;1 0 1] ;rank(A) 
ans = 3 


ولأن قيمة رتبة المصفوفة 3 بنفس عدد أعمدة وصفوف المصفوفة فهذا يدل 
على أن المصفوفة غير شاذة و أن أعمدتها تكون de got‏ متجهات مستقلة خطيا. 


(V, 3,0)‏ أساس الفضاء الاتجاهي 
إذا كان V‏ فضاء متجهات OF‏ مجموعة المتجهات V‏ © م۷1,۷2,۷3,...,۷ تسمى 
de gat‏ مولدة للفضاء I! spanning‏ كان كل متجه V © V‏ يكون تركيب خطي يكون 
تركيب خطي من تلك المتجهات. وتسمى المجموعة المولدة M.‏ للفضاء المتجه V‏ أساسا 


مواضيع رياضية متفرقة على "Yo MATLAB‏ 


(finite في ۷ إذا كانت متجهاتها مستقلة خطيا. ويعد ۷ ذا بعد نهائي‎ Basis 
من المتجهات» أما إذا كان‎ n إذا وجد أساسا مكونا من عدد نهائي‎ dimension) n 
ذا‎ V إذا كان‎ . infinite dimension مکونا من عدد لا نهائي فيقال أنه ذو بعد لا نهائي‎ 
وأي مجموعة من متجهات‎ n فإن أكبرعدد من المتجهات المستقلة خطيا هو‎ n بعد نهائي‎ 
هي أساس في . لذلك أي مجموعة من متجهات‎ rao Rs nmt مكونة من‎ V 
يكون غدذها أكثر من 3 تكون مرتبطة خطيا.‎ V 


مثال رقم (V. Y)‏ 
هل المتجهات a=(2,-1,3),b=(4,5,6),0=(2,0,4)}‏ ( تكوّن أساسا للفضاء ۸ . 


امحل ٠‏ 
عرفنا من JULI‏ السابق أن المتجهات a, buc‏ مستقلة خطيا وعليه فهي تكون 
أساسا ل ۸ حيث إن بعد الفراغ المذكورهو 3 . 


Gramm-Schmitt جرام- نيت‎ (V,V,1) 
معرفة على عناصره‎ inner product P فضاء المتجهات المزود بعملية ضرب‎ 
و تقدم‎ » orthonormal عيارية متعامدة‎ eL Lal دائما علي‎ UL وببعد نهائي‎ 
طريقة لإيجاد هذه الأساسات. بفرض‎ Gramm-Schmitt خوارزمية جرام- شميت‎ 
أساس للفضاء الاتجاهي ۷ » الخطوات التالية تزودنا بأساس‎ S-(vivavs, v) أن‎ 

متعامد أخر {Uj uu, Un}‏ للفضاء الا مجاهي SV‏ 


U1— Vi d. 


vy‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 
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برنامج MATLAB‏ يطبق طريقة جرام - شميت للحصول على متجهات 
عيارية متعامدة T‏ فضاء جزنى من المضاء R”‏ بوصع متجهات الأسامن المطلوب 
الحصول منه على m»‏ متعامد كأعمدة لصفوفة ۸4 وبكتابة الآمر Orth(A)‏ . 


مثال رقم )£ (V.‏ 
إذا كانت المتجهات [ (3,0,0)-:/: u27(3,3,0),‏ .)3.3.3( { هى أساس متعامد 


في ela T Là Fs‏ طريقة جرام - a‏ ميت TM A> sl‏ متعامد آخر. 


تأخذ الأساس المعطى فى ۸ : 
ul-[3;3;:3];u2-[3;3;0];u3-[3;0;0];‏ >> 


1 A à3 gaal وبوصع المتجهات كاقمدة‎ 
>> A-ful u2 u3] 


A= 
3 23 Jg 
3 3 0 
3 0 0 


: orth(A) نستخدم أمر‎ 
>> m=orth(A) 


مواضيع رياضية متفرقة على YY MATLAB‏ 


وبذلك تكون الأعمدة هى الأساس العيارى المتعامد المطلوب. 


m= 
-0.7370 0.5910 0.3280 
-0.5910 -0.32850 -0.7370 
-0.3250 -0.7370 0.5910 


: لتنتج مصفوفة الوحدة‎ m ب‎ m. بضرب المصفوفة‎ SUS .من‎ ISU s 
>> m'*m 
ans = 


0.0000 1.0000 0.0000 
0.0000 | 0.0000 — 1.0000 


Optimization الطرق المثلى‎ (V, Y) 
اع ؛ 9 لک‎ rei من عدة‎ Optimization Methods المثلى‎ J تتكون طر ق الحلو‎ 
جميعها تبحث عن الحل الأمثل سواء الأصغر أو الأعظم لدالة البدف» مع الالتزام‎ 
à VR التي سنعر‎ Linear Programming الخخطية‎ ig JI بشروط محددة. ومن هذه الطرق‎ 
Ls المسائل‎ pe خل‎ MATLAB (te جاهزة‎ hyo الحزءالاول» كما تو جد‎ 


)۷,۲,1( البرمجة 4,231 Linear Programming with MATLAB‏ 
يعد علم البريجة الخطية من الطرق المهمة لحل المسائل المثلى» حيث يعالح مشكلة 
بحث أفضل ربح أو أقل تكلفة في المسائل التي تحتوي على كميات محدودة من المصادر. 
يمكن تلخيص de JI‏ الخطية بأنها طريقة تحديد القيمة العظمى أو الصغرى لدالة معينة 
نسمى Slo‏ البدف objective function‏ ضمن JLE‏ معين يتم ott‏ هن SWE‏ قود على 
غدد ama‏ من Eat col ull‏ 322( ذالة البدذق.وكذلك القيود خراص معينة. pg‏ 
استخدام ig JE‏ الخطية بشكل واسع في حل المسائل العسكرية والاقتصادية والصناعية. 


YYA‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


(V. Y. NY)‏ تعريف مسائل البرمجة الخطية 

في البرمجة الخطية نحاول إيجاد القيمة العظمى أو (الصغرى) لدالة خطية بحيث 
تكون جميع القيود معادلات خطية أو متراجحات خطية» بالإضافة لذلك فإن أي 
متغير LY‏ أن يكوك غير سالب أو غير SLE sce‏ الصيغة العامة لمسالة ie JI‏ 
الخطية التي تتكون من n‏ من المتغيرات و m‏ من القيود تكون بالشكل UII‏ : 


s.t AX TA? » s, PPP Taj X, e b, 


ami Xi tg X2..... TümnXn < Dm 


fOr Xj, X2... Rye Û 


| a راب‎ j-L..n لكل‎ dij, b;, GER إل‎ c 


15" ,لام طريقة السمبلكس 

أهم طرق البرجة الخطية لحل هذا النوع من المسائل تدعى طريقة 
السمبلكس «Simplex Method‏ وهي طريقة تعتمد على إيجاد حل أساسي pnm‏ 
الحل الأساسى c Sad‏ و بعد ذلك يتم تحديد ما إذا كان هذا الحل الأمثل el‏ لا. إذا 
كان هذا الحل الأمثل فإن طريقة السمبلكس تتوقف» Le]‏ إذا لم يكن الأمثل فإن طريقة 
السمبلكس تنتقل إلى حل أساسي مقبول آخر بحيث يكون مجاورا للحل الأساسي 
Sul‏ » وقيمة دالة البدف عند هذا الحل أفضل من أو تساوي قيمة دالة البدف عند 
الحل الأساسي المبدئي. يتم تكرار خطوات البحث للوصول للحل الأمثل ويمكن i£ y‏ 


خوارزمية السمبلكس على MATLAB‏ » ببرنامج barnes‏ ] 15[ خوارزمية )3 (V,‏ 


مواضيع رياضية متفرقة على vya MATLAB‏ 


function [xsol,bas |-barnes( A,b,c,tol) 
x2=[ |; x=[ |; [m n]=size(A); 
aplusl -b-sum(A(1:m,:)')'; cplus1=1000000; 
A-[A aplusl]; c=[c cplusl |; 
x0=ones(1,n)'; x-x0; 
alpha = .0001; lambda-zeros( l m)'; 1ter=0; 
B=| |; n=n+1; 
while abs(c*x-lambda'*b)=tol 
x2=x.*x; D=diag(x); D2-diag(x2); 
AD2=A*D2; 
lambda=(AD2*A')\(AD2*c'); 
dualres=c'-A'* lambda; 
normres=norm(D*dualres); 
for 1=1:n 
if dualres(1)>0 
ratio(1)-normres/(x(1)*(c(1)-A(:,1) *Iambda)); 
else 
ratio(1)-inf; 





Q3) خوارزمية‎ 


Y x‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


خطوات حل مساألة البرمجة الخطية باستخدام طريقة السمبلكس : 
-١‏ تحويل مسألة البريجة الخطية إلى الصيغة القياسية. 
4 اا د ا Lilie Se ages SEA aa‏ 
-Y‏ تحديد ما إذا كان هذا الحل الأمثل» وإذا لم يكن كذلك فإننا نوجد حلا 
اساسا شرلا Ly gle‏ فرغ كرة 4,3 Io‏ الف ع هكا ال JAT‏ مها عيذ JEN‏ 
MY]‏ 
-٤‏ نعيد الخطوة (۳) باستخدام الحل الجديد. 
منطقة الحل (Q)‏ في البرمجة الخطية هي مجموعة النقاط التي تحقق جميع القيود. 
ومنطقة الحل قد لا تحتوى على أى نقطة» أي أنه من الممكن أن تكون 0 = 42. às‏ 
هذه الحال لا يوجد أي نقطة تحقق جميع القيود. فمثلا : 
max Z = X, + X‏ 
st X txt‏ 


2X|-X5 <4 
Xi, X2 ZÛ 


pe‏ مسألة ss‏ حلها de JU‏ الخطية» ونلاحظ أن النقطة (1,1)» تحقق جميع 
القيود لذا فهي تقع داخل 2. بينما لا تحقق النقطة ,3 القيد الأول» فهي تقع خارج 2. 
عند قيامنا بحل à JU JU‏ الخطية» نهتم oleh‏ أفضل حل للمسألة بحيث يكون هذا 
الل lo ge ge‏ دنعل od dilate‏ تطلى على عا قل فلي ال JE‏ وهو JU‏ 
مسألة القيمة العظمى "max"‏ إحدى LW‏ منطقة الحل»؛ بحيث تكون دالة البدف عند هذه 
النقطة أكبر ما يمكن. أما فى حال مسألة القيمة الصغرى "min"‏ فيعرف الحل الأمثل بأنه 
إحدى نقاط منطقة الحل » بحيث تكون دالة البدف عند هذه النقطة أصغر ما يمكن. كما 


مواضيع رياضية متفرقة على YY MATLAB‏ 


تعتبر مسألة de SN‏ الخطية في الصيغة القياسية » إذا كانت جميع القيود عبارة عن معادلات 


مثال رقم (V.9)‏ 
أوجد حل المسألة التالية باستخدام طريقة السمبلكس. 


min —4x; 
Z=- 2X; — X3 
s.t XI TFS 7 
xı + 2x; + 3x; < 12 
| X2 X> 0 


و نكتب الأوامر التالية بتحديد نسبة الخطأ 0.00005 فى الخوارزمية :)۷,١(‏ 


>> c=/-2 -1 -00]; 
>> لحو‎ 111011 23:04 7782727 
objective = 


19.0000- 
(V. Y. Y)‏ دوال جاهزة للحلول المغلى على MATLAB‏ 
توجد عدة طرق مثلى جاهزة في MATLAB‏ سوف نعرف بعضها في الجدول 
رقم (V.‏ 


الجدول رقم .)۷,١(‏ دوال جاهزة على MATLAB‏ للحلول المثلى. 
الدالة الوصف 


minbnd 
إيجاد القيم الصغرى لدالة غير خطية بمتغير واحد على فترة حددة‎ fminbn 
| è E 1 n. TENE 5 fminsearch 
إيجاد القيم الصغرى لدالة غير خطية بعدة متغيرات على فترة محددة‎ 
إيجاد أصغفار الدالة بمتغير واحد على فترة حددة‎ fzero 
Isqnonneg 


ole!‏ الحل بطريقة أصغر مربعات خطي بشروط غير سالبة 


Linear least squares with non negative constraints 


]15 كان لدينا دالة بمتغير واحد وأردنا إيجاد القيمة الصغرى لبا نقوم بتعريفها في 
m-file‏ » و نستخدم cfiminbnd‏ فمثلا LAY‏ القيم الصغرى في الفترة (0,2) للدالة 
y= x'-2x-5‏ نكتب الأمر : 


[x f] fminbnd(f, 0,2) 
x= 


0.8165 


-6.0887 


f(x) -6.0887 بقيمة‎ x= 0.8165 على القيمة الصغرى عند‎ (La s 
Sl fminsearch في حال كانت الدالة غير خطية في متغيرين فنستخدم الأمر‎ 
: m-file بعد تعريقها فى‎ Nelder-Mead simplex (direct search) method يستحدم‎ 


function f — fun(x,a) 
Pex? Ta342)^2; 


a= 1.5; 
x = fminsearch((@(x) fun(x,a),[0.5; I [) 


i eo 
1.0e-004 * 
- 2447 
0.53159 
Statistics Functions on MATLAB t ذو ال الاحصاء‎ (N,Y) 
ستقدم في هذا الجزء أهم المبادئ الإحصائية الضرورية لدراسة مجموعة من‎ 


البيانات مثل : الوسط الحسابي والوسيط والانحراف المعياري والتباين وغيرهم . 


مواضيع رياضية متفرقة على yyy MATLAB‏ 





(V, Y)‏ رسم البيانات في شكل هستوجرام 


لرسم T UI‏ شكل هستوجرام ؛ دستحدح الأمر TOR « hist(y,x)‏ البيانات 
العشوائية الممثلة بالمترة ]6.7,6.7-[ والمقسمة plas‏ 0.1 ترسم بالاوامر الكالية الشكل 

CV, Y) رقم‎ 
>> x=-6.7:0.1:6.7; 


>> y=randn(10000, 1); 
>> hist(y,x) 





الشكل رقم (V, Y)‏ هستوجرام البيانات العشوائية بين [6.7,6.7-]. 


(YYY)‏ الوسط الحسابي 


, 1 
MATLAB وف‎ — > SX; للبيانات ...× هو‎ mean Er الوسط‎ 
: 8 ; 


E 


AL t p A‏ الوب .mean(A) pv IB^‏ — فخا السانات 
1.7,2,3.5,4,5,6,7.2 وطلينا الوسط الحسابى WE lS‏ تخل : 


YYé‏ استخدام MATLAB gl y‏ في الرياضيات الجامعية 


>> A=[1.7 2 3.5 4 5 6 .2[ 
>> mean(A) 

ans = 

4.200 


(NY Y‏ الوسيط 
الوسيط هو العنصر الذي يتوسط البيانات المرتبة تصاعديا أو تنازليا 
×,...... × و الأمر median(B)‏ يحسب الوسيط للبيانات 8. بفرض أن لدینا البيانات 

7 ومطلوب وسيط لہذه البيانات » DU‏ ندخل : 
A=[1 234567];‏ >> 
median(A)‏ >> 


ans = 
4 


pac) WIS c max(A) يالا‎ A cUUJI الا كبرق‎ petal وکن ديد‎ 
. min(A) Pit A البيانات‎ T الأصغر‎ 


(NS Y 6)‏ الانحراف المعياري 
يستخدم أمر std(A)‏ في MATLAB‏ لايجاد الانحراف المعياري standard deviation‏ 


5 1 - NIIS 
o — LA, -x))" 
ELS. 


حيث إن X‏ المتوسط الحسابى» ويعرف الانحراف المعياري على أنه الجذر 
التربيعي لمعامل التغير variance‏ فمثلا لإيجاد الا نحراف المعياري للبيانات التالية ندخل : 


مواضيع رياضية متفرقة على YYo MATLAB‏ 


>> A=/(587 1011 4 
>> std(A) 
ans = 2.7386 


(V% 0)‏ معامل التغير 
معامل التغير coefficient of variation‏ هو النسبة المئوية بين الاحراف المعيارى 
والوسط الحسابى (std/mean)X100‏ . فالبيانات 5,8,7,10,11,4,9 لبا معامل تغير: 
A=/58 7 I0 11 4j;‏ >> 
(std(A)*100)/mean(A)‏ >> 
ans = 30.5148‏ 
wll (V Y)‏ المصاحب 


التباين المصاحب CO-variance‏ بين عنصرين X1,X2‏ يعرف بالصورة : 


cov(x,, x, ) Es E|(x, Z H \(x, i 1) | 


X; poi expectation value هى القيمة المتوقعة‎ E حيثإن‎ 

E(x) 05S 5‏ = ,ام و نستخدم الأمر cov(xix;)‏ لا عفاد ce eoo Ll rS JE‏ 
الختصرين OX), X2‏ والأمر LE corrcoef(x)‏ مصفوفة معاملات التباين للمتجه بحيث 
يكون كل صف هو Lary (8 pl‏ كل عمود هو متغير. لو فرضنا بيانات عشوائية 
randn(30,4)‏ فإن الأوامر التالية تجد البيانات العشوائية بتباين بين العمود الرابع 


Ty» والأعمدة‎ 


YT‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


x — randn(30,4); 
x(:,4) = sum(x,2); 
[r.p] = corrcoef(x) 
[ij] = find(p<0.05); 


r= 
0.53453 0.4180 0.0054 1.0000 
0.524» 0.0474 1.0000 0.0034 
0.7137 L.0000 0.0474 0.4180 
1.0000 | 0.7137 0.5243 0.5343 
P= 
0.0024 0.0215 0.9772 1.0000 
0.0029 0.8037 1.0000 0.9772 
0.0000 — 1.0000 0.8037 0.0215 
1.0000 0.0000) 0.0029 0.0024 


dy cy le (VYY) 

من المواضيع الإحصائية الأخرى المستخدمة في مجالات عديدة دراسة 
الاحتمالات» y‏ الآلية التي تمكننا من احتواء الضبابية (عدم الدقة) في البيانات 
والظواهر الناتجة في le‏ الحقيقي » كما تمكننا من التنبؤ بالتغيرات. ومحاولات برنولي 
هي كل تجربة Gat‏ الخواص التالية : 

"Sat up نتيجة كل حاولة إما " نجاحاً‎ -١ 

-Y‏ نتيجة كل محاولة مستقلة عن نتيجة أي محاولة أخرى. 

¥- احتمال النجاح في كل محاولة ثابت. 

إذا أجريت تجربة بيرنولي ” من المرات» وكان احتمال النجاح في الحاولة 
الواحدة p‏ » وكان fic x‏ عدد ce‏ في الحاولات »كلها ؛ oU‏ : 


n 
P(A =x) | Jp (1— p) ^ ;x-0,L2,......n 
nd. 


مواضيع رياضية متفرقة على TN MATLAB‏ 
ولمحصل عليه ببرنامج .binocdf(X,N,P). YL MATLAB‏ ولحساب احتمالات المتغير 
العشوائی من القيمة ” إلى القيمة ۲ نستخدم الأمر  binocdf(r:tN,P)‏ كما VS‏ حساب 
جموع تللق .sum(binocdf(r:t, N,P)) JU co Ns VI‏ 


مثال رقم ر؟ (V.‏ 
رميت قطعة معدنية (الوجه الأول صورة والآخر رقم) متزنة ست مرات. أوجد 
التوزيع JU VI‏ | لعدد ظهور جهة الصورة à‏ هذه التجرية. 


: fel 
يشل‎ x وبوصع‎ p=l/2,n=6 دات الحدين حيث إن‎ rage شروط‎ aee دق‎ 
X—0,1,2,3,4,5 لقيم‎ b(x;6,1/2) حساب‎ os cy cs عدد ظهور الصورة في‎ 
: المختلمةء باستخدام‎ 


binocdf(0:5,6, 1/2) 
0.0156 | 0.1094 0.3438 0.6563 0.8906 0.9844 
(Y, V) مثال رقم‎ 


تخضع تكاليف تصنيع جهاز لتوزيع طبيعي معدله u-1250‏ ريالا i‏ واحرافه 
المعياري 0-50 VL,‏ والمطلوب إيجاد الاحتمال تكلفة الحهاز مابين 1200 و 1000 ريال. 


ا حل : 


بفرض × هي تكاليف تصنيع الجهاز » فيكون X‏ متغيرا عشوائيا توزيعه توزيع طبيعي 


YYA‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


ذو JA‏ 1250-= واخحرافه المعيارى 6250 المطلوب حساب )1200 P(1000< X<‏ . 


نحول إلى القيم المعيارية Lady‏ للعلاقة 7_4 ٠‏ حيث إن فيم 2 هي 


O 
1200-1250 , 1000-1250 — 


5 


50 50 


P(I000—X«1200)—P(-5«Z--I) 
وندخل الأوامر التالية لحساب الاحتمال بقيمة المتغير المتصل» واستخدام الأمر‎ 


spe‏ ونرسم التوزيع الاحتمالى الشكل رقم (VY)‏ والقيمة النانجة تظهر منحنى 


>> m=0; 

>> sig-l; 

>> sp-[-5,-I]; 

>> prob-normspec(sp,m,sig) 
prob = 0. 1587 


Probability Between Limits is 0.15865 





-5 -4 -3 -2 -1 0 1 2 3 4 
Critical Value 


الشكل رقم (۷,۳). منحنى توزيع الاحتمال. 


مواضيع رياضية متفرقة على va MATLAB‏ 


)€ ,¥( التشفير Cryptography‏ 
منذ ألاف السنين اعتمد الإنسان على وسائل التشفير لحجب المعلومات السرية 
عن أعدائه» وقد اقتصر استخدام علم التشفير في القرون الماضية على أمن المعلومات 
العسكرية والمراسلات الدبلوماسية وحماية الأمن الوطني للدول. وهي إحدى الطرق 
المستخدمة في BUH‏ على سرية الرسائل المرسلة عبر قنوات الاتصال المختلفة. ومع 
التقدم السريع للاتصالات ووسائل نقل المعلومات» بدأ الاهتمام يتزايد في علم التشفير 
لاعتباره أهم الطرق المستخدمة وأكفأها لحماية المعلومات العسكرية والاقتصادية 
المنقولة عبر شبكات الاتصالات التى يسهل اختراقها مثل الإنترنت و الراديو والباتف 

وغيرها . 

ينقسم علم التشفير cryptology‏ إلى قسمين» هما : التشفير cryptography‏ 
وتحليل أو كسر الشفرة „cryptanalysis‏ فمستخدم الشفرة يكون هدفه الأساسي هو 
ضمان سرية المعلومات المنقولة وعدم تعرضها للتحريف من قبل العدوء أما محلل 
الشفرة فهو يسعى إلى البدف المضاد وهو كسر الشفرة ومعرفة محتوى المعلومات 
ÀJ Sx‏ 

وبناء على ذلك نعرف التشفير على أنه تحويل نص واضح مقروء إلى نص غير 
واضح باستخدام إحدى طرق التشفير» التي قد تكون غير سرية ولكنها تستخدم 
مفتاحا سرياء أما كسر الشفرة فهو العملية العكسية أي محاولة معرفة المفتاح السري من 
النص المشفرء ومن ثم الحصول على النص الواضح. 

هناك طرق كثيرة للتشفير باستخدام أنظمة تقليدية أو غير تقليدية» وهي تحتاج 
إلى خوارزميات وطرق مطولة من الحساب » وبعضها يعتمد على التجربة أكثر من مرة 
لإيجاد المفتاح المناسب للتشفير. البرنامج SLI‏ يستخدم في MATLAB‏ من أجل 


Ves‏ استخدام برنامج t MATLAB‏ الرياضيات الجامعية 


تشفيرأي نص وكذلك كسر هذه الشفرة» وهذا البرنامج (خوارزمية (V.Y‏ هو نظام 
pats‏ تقليدي بشرط أن الدالة تساوى معكوسها [19]. 


function y = crypt(x) 
pp-97;cl-char(169);c2-char( 174); 
x(x——el)-121; 

x(x==c2)=128; 


x=mod(real(x-32),pp); 


n=2*floor(length(x)/2); 
X=reshape(x(1:n),2,n/2); 








(MV) خوارزمية‎ 


(VA) رقم‎ Slee 


قم بتشفير الجمل التالية» باستخدام خوارزمية (1/,5) : 


(1) Hello readers 
(2) Mathematics with Matlab 
(3) Matlab toolboxes 


; UA! 
في الخو ارزمية فإن البرنامج يعطى الحملة‎ "Hello readers" إذا أدخلنا الجملة‎ 
: المشفرة‎ " 0711201" 
» y—crypt( Hello readers’) 


y = 
d?3{p]K2OW3G 


Ye) MATLAB رياضية متفرقة على‎ anal ys 


ونستطيع فك الشفرة وإعادة كتابة الجملة باستخدام نفس البرنامج على الحملة 
التاضحة y‏ : 
crypt(y)‏ » 


ans = 
Hello readers 


» y-crypt(' Mathematics with Matlab’) 


y = 
,B~#)&>soMie2C~#zk&>s~®? 
» crypt(y) 

ans = 

Mathematics with Matlab 


» y=crypt(' Matlab toolboxes’) 


(BY%*{#ERLNBYS5a 
» erypt(y) 

ans > 

Matlab toolboxes 


(V,9) cay 


: -أوجد مساحة المثلث الذي رؤوسه النقاط‎ ١ 
. P=(1,-1,0) , Q=(2,1,-1), R=(-1,1,2) 
: على المستوى الذي تقع عليه النقاط‎ 77 (go gall anl “وا‎ 
. P=(1,-1,0), Q=(2,1,-1), R=(-1,1,2) 


-Y‏ أثبت أن المتجهات ei-(12,1), €2-(2,3,3), e37,7,1)‏ تكون أساسا للفراغ 


« 0.001 الجا من المصابيح الكهربائية في مصنع تساوي‎ uu SIS Lyle 


Yy‏ استخدام برنامج MATLAB‏ في الرياضيات الجامعية 


Ane cols‏ ا عشرة مصابيح بطريقة عشوائية ما احتمال أن يكون عدد التالف 
فق هذه العيثة يساو ضفرا ؟.وما احتمال أن يكون od US ote‏ 


0- إذا avs X OLS‏ | عشوائيا لذات الحدين n-5,‏ » 1/2-م قم بعرض القيم 
والاحتمالات المقابلة لها بوساطة المدرج الاحتمالي (هستوجرام) . 

5- تخضع أوزان أحد أنواع الجبن للتوزيع الطبيعي ذي المعدل 85 جرام 
وانحرافه المعيار 2.5 = 6 جرام والمطلوب هو احتمال أن وزن إحدى العبوات التي 
أخذتها عشوائيا تزيد على 90 جرام » واحتمال أن وزن إحدى العبوات الني أخذتها 
عشوائيا تقل عن 82 جرام . 

: أوجد حل المسألة التالية باستخدام طريقة السمبلكس‎ -V 


min 7 =- ZXı - X; -4x; 
s.l Xj FX + بج‎ | 
X | + x + 3K; > 12 

X1, X2 X320 


: شفر الجمل الثالبة‎ -A 


Computers are Essentials 
Using Matlab in mathematics 
Good Luck 


yr) 


MATLAB aol 3-1 


خوارزمبات اضافية نم استخدامها في الكتاب 


5550 eh eee eee SS35 ee eee eek ee eee 
function s-bisect(fn,a,b,acc) 
fa=feval(fn,a); 
fb-feval(fn,b); 
lf fa*fb»Ü 
fprinf('endpoints are not of different sign ') 
end 
while abs (b-a)>acc 
c= (a+b) /2; 
fe=feval (fin,c); 
if fa*fc<=0; 
b=c; 
else a-c; 
end 
end 
s=(atb) /2; 
SEDSSSADSSADOSAADHSDODSDODSDODEEODEDEDHO DSDHA ESD DEES ODDS ODED ODDS DDEEDOS 
function [tvals yvals]=abm(f,start, finish, startval,h) 
Adams Bashfoth Moulton method 
eset up matrices for Runge-Kutta methods 
b=[ i;c-i ]zd=[ j; order—4; 
]خم‎ TE 1/3 1/3 L6): de[U E .5 Ij; 
c=[0 0 0 070.5 00 O70 .3 0 0;0 O 1 QJ; 
s=(finish-start) /htl: 
v-startval; t=start; fval(l)=feval(f,t,y); 
vs(l)-startval; yvals-startval;tvals-start; 
For j22:4 
k(1)-h*feval(f,t,v); 
for i-2:order 
krii)-h*tfevalir,tth*"ditl)hgytoll,l:i-l1P*k[(Il:rr-—lj '); 
end; 
yl-y4Db*k':s VS) avis tili-tth; 
fval(j)=feval(f,tl,yl); 
scollect values together for output 
tvals-[tvals,tl1]; yvals=[yvals,yl]; 
t=tl; y-yi; 
end; 


ان 


CE‏ الملحق 


for 1-5 +5 
yl=ys (4) +h* (55*fval (4) -59*fval (3)4+37*fval(2)-9*fval(1))/24; 
tl=tth; fval(5)=feval(f,tl,yl); 
yo=ys (4) +h* (9* Eval (5)4+19*fval (4) -5* 2731 )3( + 2731 (2) ( /24; 
fval(5)-feval(f,tl,vyc); 
fvwal(1l:4)=fval (2:5): 
ys (4) -yc; 
tvals-[tvals,tl]; yvals=[yvals,yc]; 
t-tl; y=yl; 
end; 
LRPASSETESSRE ES SES COREA SEE PEA CASS RSS ERE REL ECAR ESSN CRD Seen ee seen eee 
Function q = diffgen(func,n,x,h) 


if ((n==1) | (n== 2) | tn==3) | (ne =4)) 
c=zeros (4,7) 
ecilssyel 0 1 -8 Û B. =l ALS 
Ou. d = Ss “gil Lo =i: Hh 
BUS ELE 5. -12 18.5 0 -18.5 12 -1.;:5]; 
e(4,:)=[ -2 24 -75 12 -78 24 وا2‎ 
y= feval (func, x+ [- a2) *h}} 


qec(n,:)*y'sqeq/ilz*h^ny; 
else 
disp('n must be 1, 2, 3 or 4'); 
end 
$$5$2254995295*59529595952955295295959529529525222529525295225292*2229252952255292552225222252222* 
function D = divdif(x,y) $ Construct divided difference table 
m > length (x); 
D = zerosí(m,m); 
DEEA FEE 
for j = 2:m 
for i = j:m 
D(i,j) = iD(i,j-1)- D(i-1,j-1))/(x(i)-x(i-j-41)); 
end ;end 
ESSELTE 
function [tvals, yvals]-feuler(f,start,finish,startval,h) 
solves dy/dt-f(t,y).start,finish are initial, final values of t 
$startval is initial value of y, h is the increment in t 
—-(finish-start)/h*1; 
y-startval;t-start; 
yvals-startval;tvals-start; 
for i-22:58S 
yl-y-h*feval(f,t,y); tl=tth; 
collect values together for output 
tvals-[tvals, tl]; vvals-[yvals, yl]; 
t-tl;y-yl; 
end 
0 ا‎ STS SSS SS SPSS SSSSSSSSSSSSSSSSS SESS SSS SSBB SSS SSS SSS 
function c = fgenfitl (func,;x,y) 
n = length(y); 
IP; JJ] = feval (func,x(1)); 
A = zeros(p,p); b = zeros (p,1); 
for i = l:n 
[J]; f] = feval (func,xíi)); 
for j] = lip 
for k = l:p 
AJK) SEIFERT II LR 
end 
DI = Dg ey) ELJ} 
end; 
end 
c=A\b; 
E kkhk Akh SSS SSS SSDS SSS SSBB SSS SSS 
function x-Gaussian(B) 
[n,t]=size(B) :G=B; 


Yeo الملحق‎ 


Lor il-l:n-l 
for 3-1 :1-1 
m=G )1+1,1(/6)1,1( 
for k-1:t 
G(j+1,k)=G(j+1,k)-m*G(i,k); 
end 
end 
end 
j=n; x (j; EL t) /G(1, 1); 
for j»n-1:-1: 
5-0; 
for k-n:-1:j-*1 
s-stG(j,k)*x(k,l); 
encd 
je.) (6 (3 eb) 8). 7541437 7 
end 
EBES SSS SSS SSS SSS SSS SESS SSS SSS SSS SDSS SSS 
function x=GaussSeidel (B,x,acc) 
[n-t]=size(B); 
b-Bí(l:n,t); 
R=]; k=]; 
d(l,lzntlj=[0 x]; 
k=k+1: 
while R»acc 
for i=l:n 
sum=0 ; 
for j=lin 
if j<=i-1 
sum-sum-Bíi,j)*d(k,Jj-1); 
elseif j»-i-«l 
sum-sum-*B(í1i1,3)*d(k-1,73*1); 
end 
end 
X(l;i)-(L/Bi1,1))*(bi1,1I)-s5um); 
d(k,l)sk-1;d(k,i-r-1)-2x(1,1); 
end 
R2maxíabhs(í((í(d(k,2:n*l)-d(k-1,2:n*1)))); 
k=k+1; 
if R»100 & k»10 
('Gauss-Seidel method is Diverges') 
end; 
end; 
x-d; 
EBES SSS SSS SSS SS SSS SESS SESS SSS SS SSS SSS SSS 
function x-Jaccobi (B,x,tol) 
[n,t]=size (B); 
b=B (bin, t); 
w=l;k=1; 
d(1l,isnt+lj=[0 x]; 
while w»tol 
for i=l:n 
sum=0; 
for j=lin 
if j-^-71i 
sum-sum-Biíi,Jj)*dí(k,Jj-*1); 
end 
Xx(l,i)-(1/B(i,i))*(bíi,l)-sum); 
end 
end 
k-k-T1:; 
d(k,l:ntTl)e[K-l Xl; 
w-maxiíabsií(d(k,2:n*Ó1)-d(k-1,2:n*1)))); 
if w»100 & k>10 


vet‏ الملحق 


('Jaccobi method is Divergent’) 


end; 
end; 
x-d; 
SESSSSSSSSSSSSSSSSESSSSSSS SESS SSSSSSESSSSSSS SESS SSSSSSESSSSSESSSSSSSSSSSS 
* Wave equation Backwards-difference method $ 
2323327233377237 


clear 

fprintf(1,'\nts\n', 'The Hyperbolic equation of the form '); 
fprintf£(1, '\nss\n', 'd*2u/dt*2 = (alpha^2)*d^2u/dx^2 = 0 O<x<l1, 
DcE«T'ys 

fprintf(l,'MXn$sWXn','Subject to the boundary conditions '); 


fprintfíl,'Win$sXAn','u(O,t)-u(l,t)-0 Üct«T'); 
fprintf UL; nisan wx U] -E(X j} 
fprintf(l,'Mn$sMn','du/dt-q (x) Dexel'Ys 


$ initializations $3 

n = input('enter the number of grid sections for the t variable; n= 
FF 

m= input('enter the number of grid sections for the x variable; m = 
ll = input('enter the end point of the range for x; l= '}; 

T = input('enter the end point of the range for t; T= م("‎ 

alpha > mpu enter the constant alphas م("‎ 


fxÜ- input('enter the boundary condition f(x)=','s'); 
qxü- input i enter the boundary condition d Gre Pgs Su 
ee- input('enter the exact solution e(x,t)=','s'); 


$ step sizes 
h-211l/m;k-T/n; 
l=alpha*k/h; 
$ initial conditions $$$ 
for i=l:m+1 
- (i-1)*h; 
ff(i)=eval (£x0); 
gg (1)-eval(gx0); 
end 
w(1,1)-2ff(1l); 
wimtl, 1)=f£f üm-1); 
for iise2z:iü 
w(ii,l)^ffíii); 
w(ii,2)72(1^2/2)*(ff(ii*l)-ff(ii-1))-*(1-1^2)*(ffí(ii))- 
k* (qq (11)); 
end 
5 boundary conditions 
for qeé2:ntl 
w(1,g)-20; 
w (m*-1,g)-0; 
end 
$ matrix multiplication 
for j22:n 
for [1-22 8 
w[i,]tl]-2*(1-1^2)*wi(l;]pt-QI^A) *(w(rtl,])-w(r-1;1)]-wityg]-113; 
end 
end 
% exact solution $$ 
for ic=l:mtl 
for je=lint+l 
X=(1c-1)*h; 


t-(jc-1)*k; 
e(ic,jc)-eval(ee); 
end 
end 


fprintf (1, ''\nts\n', The exact solution is  '); 
e 
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s error calculation 
rl=ones((n4+1),1); 
errorl-(e-w).^2*rl; 
error=sum(errorl); 


$ plotting exact and the approximated solution 


mesh (w) 

titleí('approximated solution'); 
figure 

mesh (e) 

title('exact solution'):; 


t$ 


fprintf(1,'\nts\n', 'The approximated solution is 


vy s 


F 


Ww 
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5 Poisson equation central-difference method 


2 


SBE SSS SSS SS SSS SSSSSSSSSSSSSS SSS SSS SSSSSSSTSSSSSSSSESSSSBSGS 


clear 


fprint£(l,'\nts\n', The Elliptic equation of the form '); 


fprintf(l,'Mn$sXn','d^2u/dt^2 + d^2u/dx^Z = f(x,y) a<x<b,  c«y«d'); 
fprintf(l,'^n$sXn','Subject to the boundary conditions "'); 
fprint£(1, '\nts\n', 'u(a,y)=g(a, y) caved! TF 
fprintiil,'Xn$sAn','utb;y)-gib,y)'); 
tprinLtfíl,'XnSsin'*,"u(x,cljegix, c) a<x<b"); 

fprintf (1, nsssn','u(x,d)]eg(x,d) *) 

$initializations 55 

n > input('enter the number of grid sections for the x variable; n- 
E 

m- input('enter the number of grid sections for the y variable; m - 
SF 

ep max = input ('enter the maximum number of iterations  '); 

a —-input('enter the right end point of the range of X ; a= '); 
b-inputí('enter the left end point of the range of x ; b= '); 

cl = input('enter the right end point of the range of y ; c= "'); 
d= input('enter the left end point the range of y م‎ d= 'J; 

tol- input('enter the tolerance ; tol-z'); 

ff= input('enter the function fí(x,y)-2','s'); 


ee= input('enter the exact solution e(x,y)=', 
gxc= input('enter boundary condition u(x 
gxd= input('enter boundary condition u(x 


gat- input('enter boundary condition u 
gbt- input('enter boundary condition gq 
+ step sizes 
h=(b-a) /n; k=(d-cl) /m; 
lm-(h^2)/ (k^2):; 
u=27* (1+lm);: 
$ exact solution $$ 
for ic-1:n*1l 
for jc-1:m-1 
x-act(ic-1)*h; 
y-clt(jc-1)*k; 
e(ic,jc)seval(iee); 
end 
end 
tor ic-l:n4l 
for jc-71:m-1 
X=at (ic-1) *h; 
v-clt(jc-1)*k; 
f(ic,jc)-eval(ff); 
end 
end 
fprintf(1,'\n$s\n','The exact solution is 
e 


w-zerosiín-*-1,m-1); 


ac) 
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sboundary conditions 

for j=l:mtl 

y=cl+(j-1)*k; 

w(l,j)=eval (gat); 

wi(n*1,j)-eval(gbt); 

end 

for i21:n-41 

x-atí(i-1)*h; 

w(i,1l)=eval (gxc) ; 

w(i,mt+l)=eval (gxd); 

end 

L=1; 

$ Gauss-Siedel iterations 

while L«- ep max 

z=(-£(2,m)*#h*24+w(l,m)+lm*w(2,mt+1)+lm*w(2,m-1)+w(3,m))/u; 

norm=abs (z-w(2,m) ) ; 

w(Z,m)z; 

for i-22:n-2 

z-(-f(i-l,m)*h^2-1m*w(i*l,m-*-1)-l1m*w(i-1,m-1)-*4w(i,m)-4wí(i-2,m))/u; 

1f abs(w(itl,m)-z)> norm 

norm-absüwí(i-tl,m)-z); 

end 

w(itl,m)=z; 

end 

z=(-f (n,m) *h*24w(n+1,m)+lm*w(n,m+l1)+lm*w(n,m-1)+w(n-1,m))/u; 

1f abs (w(n,m)-z)>norm 

norm=abs (w(n,m)-z); 

end 

wi(n,m)=z; 

tor: Joe Marbig 

z-(-£(2,]*1) *h^Z*w(1,j*1) *1m*w(2,3j42) -1m*w(2,3) *^w(3, ] *1) ( /u: 

if abs(w(2,]*1)-z)»norm 

norm=abs (w(2,)+1)-2Z); 

end 

w(2,j*1)-2z; 

for is2:n-2 

z-(f(itl,jtl1)*h^2-4w(i,j]t*l)*lm*wi(itl,j-2)Tlm*wii-tl,])-tw(1*2,)]-* 
1))/u; 

if abs (w(itl1,j3+1)-z)>norm 

norm=abs (w(itl, jJ+1)-z); 

end 

م 2 - (1+1,3+1) إن 

end 

z-(-fí(n,j*1)*h^Z4*w(n*1,j-1)*1m*win,j]*2)*lm*w(n,j)-4w(n-1,]*1)) /u; 

if abs(wí(n,j-*1)-z)»norm 

norm-abs (wí(n,j*1)-z); 

end 

wí(n,j*1)2z:;: 

end 

Z=(-£(27,27)*h*2twll,2?)+lm*wl(2,1l)tlm*wt{2,3)t+w(3,2))/u: 

11 absí(w(2,2)-z)»norm 

normeabsüw(2,2)-z); 

end 

w(2,2)-7z; 

for i-22:n-Z 

z=(-f(it1l,2)*h*2+1lm*w(it+l,1l)4+w(i,2)4+lm*w(fitl, 3)4+w(it2,2))/u; 

if abs (w(itl,2)-z)>norm 

norm=abs (w(it+l,2)-2Z) ; 

end 

w(iTl,2)-2z; 

end 

z-(-tf(n,2)*h^Z2*w(n*1,2)-*1m*wí(n,1)-T1m*wí(n,3)-4w(n-1,2)) /u; 

1f absí(wín,2)-z)»norm 
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norm-abs (wín,2)-z); 

end 

w(n,2)7z; 

lf norm <= tol 

fprintf(l,'*Mn$sXn','The approximated solution is "(١م‎ 

W 

L 

L-ep max; 

end 

L=L+1; 

end 

rl=ones ((m+1),1); 

errorl-(e-w).^2*rl; 

error-sum(errorl) 

mesh (w) 

title ('approximated solution'); 

figure 

mesh (e) 

title('exact solution'); 

293933435% 1 5 5 5 5 5 5 5 5 5 5 5 55 5 55555 EEE 
$ Heat equation Backwards-difference method 
SEESSSSSESSSRRRESSESSSSSSSSESESSEES SSSR AL LLLLLIALIÍLLLLLLILLLLELALI LARA. 
clear 

tprintf(l,'in$sXin','The Parabolic equation of the form '); 
tprintfí(l,'Xn$sAn','d"2u/dt^2 - (alpha^2)* d^2u/dx^Z s0 O<x<1, 
Üct«T'):; 

fprintf(l, '\nts\n', 'Subject to the boundary conditions '); 
fprintf(l,'Xn$sWn','u(D,r)-T1'); 

fprintf(l, '\nts\n', 'u(l,t)=T2 Eh cl DB 
fprintf(l,'in$sXin',;'u(x;0)-Ifix) Üe-x€c-l1'); 

$ lnitializations $$ 

n = input('enter the number of grid sections for the x variable; n= 
SF 

m= input('enter the number of grid sections for the y variable; m = 
2 


se 


1 = input('enter the end point of the range for x ; l= '); 
T = input('enter the end point of the range for t; T= ‘'‘'); 
ee- input('enter the exact solution e{x,t)=','s'); 

alpha = input('enter the constant alpha = '}; 

Tl = input('enter the constant Ti = "'); 

T2 = input('enter the constant T2 = '); 


gxO= input('enter boundary condition u(x,O)=f(x)=','s'); 

+ step sizes 

h-21/m; 

k-TÁns 

lm=k* (alpha/h)^2; 

š initial condition 

for 11-2 0 

x-(11-1)*h; 

w(il)-2 vase idee 

wlí(ii,l)2wí(il); 

end 

5 boundary conditions 

for j=l:intl 

wlí(1,])70; 

wliüm-1,73)0; 

end 

$ exact solution 

for ic=l:m+tl 

for jc=l:intl 

x-í(lc-l)*h; 
t-(jc-l1)*k; 
e(ic, ]c)=eval (ee); 
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end 
end 
fprintfi(l,'Xn9sin','The exact solution is م("‎ 
e 
€ Solving the tridiagonal system Crout reduction 
s(?)=1+2*1m: 
نا‎ )2( -- 11/5 (2); 
for i=3:m-1 
s$(1)=1+2*1lm+lm*u(i-1); 
u(i)2-lm/sí(i); 
end 
s (m)=1+2*1m+lm*u(m-1) ; 
for j72:n-4l 
z(2j=w(2)/s(2); 
for i1-23:m 
z (i)={w({(i)+lm*z{i-1))/s({i)} 
end 
w(m)-z im); 
for i= m-1:-1:2 
w(i)-ez(i)-u(i)*w(i*1); 
end 
for i=2:m 
wlí(i,])-2w(1); 
end 
end 
è calculating error 
rl=ones((n+1),1); 
errorl=(e-wl).*2%*rl; 
error-sum(í(errorl) 
% graphing the approximate & exact solutions 55 
figure 
mesh (wl) 
title('approximate solution'); 
figure 
mesh (e } 
title('exact solution"); 
fprintf(l,'\nts\n', 'The approximate solution is 
wl 
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9 Heat equation crank-nicholson 


method$$$$5525955255555555 5555555555555 5525555555552 52 552595 5555$ 


clear 


pil 


fprintf(l, '\nts\n', 'The Parabolic equation of the form '); 


fprintf(l,'Mn$sXn','du/dt = (alpha^2)* d^zu/dx^2 =0 


fprintf(1,'\nts\n', 'Subject to the boundary conditions 


fprintfí(l,'in$sin','u(O,t)-TI'); 
Pprintf(l,'Xn$sXin';'uil,t)-T2 Üct«T'): 


Lprintt(l,'xn&ssn',' unix, 0) ot (x) ديج عو - ب ل‎ 


* 1nitializations %% 


LT. 


Ücx«l, 
pj Ge 


Yo. 


a ay! ee ae 


n = input ('enter the number of grid sections for the x variable; n= 


"gs 


m= input('enter the number of grid sections for the y variable; m = 


YF 
J; 
T 


input ('enter the end point of the range for 
input('enter the end point of the range for 


ee= input ('enter the exact solution e(x,t)=','s'); 


alpha = input ('enter the constant alpha = '); 
Tl = input('enter the constant Tl = مم("‎ 
T2 = input('enter the constant T2 = '); 


gx0- input ("enter boundary condition u(x,0)-f(x)-','s'); 


$ step sizes 
hzl/m; 
k-zT/n; 
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lm=k* (alpha/h)^2; 
w(m-1)20; 
¢$ initial condition 
tor LILA om 
x-(ii-1)*h; 
w(ii)-eval(gxO0); 
wlí(ii,l)-2wíili); 
end 
% boundary conditions 
for j=l:intl 
w1(1,1)20; 
wil (m+1,7)=0; 
end 
5 exact solution 
for ic=l:mtl 
for jc=lintl 
x-í(ic-1)*h; 
t-í(jc-l)*k; 
e(ic,jc)=eval (ee); 
end 
end 
fprintf(l,'*n&sXn','The exact solution is  '); 
e 
5 Solving the tridiagonal system Crout reduction 
s(2)=l+lm; 
u(2) -lm/(2*5(2)); 
for i-3:m-1 
s(i)=1l+lmt+lm*u(i-1) /2; 
ulij=-lm/ (2*s(i)); 
end 
s(m)=l+lm+lm*u(m-1) /2; 
for j=2intl 
z{2)=((1-lm) *w(2)+(1lm/2)*w(3))/s{2); 
for isi:m 
z(i)-((l-Im)*wí(i)-(lm/2)*(zí(i-l)*w(i-l)-*w(i-1)))/s(í(i); 
end 
wi(m)-z (m); 
for i= m-1:-1:2 
wí(i)-zí(i)-u(i)*wíi-*l); 
end 
for i-22:m 
wlí(i,j)-7wí1i): 
end 
end 
$ calculating error 
rl=ones((n+1),1); 
errorl=(e-wl).*2*rl1; 
error-sum(errorl)? 
€ graphing the approximate & exact solutions 595 
figure 
mesh (wl) 
title('approximate solution'); 
figure 
mesh (e) 
title('exact solution'); 
fprintf(l,'*n$sMn','The approximate solution is '); wl 
EBES SSS SSS BSS SSS SSS SSS SSS SSS SSB OSS SSS SBS SSS SSS SSDS 
function [r,it]=modifiedNewton (fun, dfun, ddfun, x0,acc) 
it-0;o-x0-41; 
while abs (x0-0)>acc 
O-XÜ; 
1t=it+1; 
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x0-o-i((feval(fun,o)*feval(dfun,o))/((feval(dfun,o).^2)- 
(feval (ddfun,o) *feval (fun,o)))); 
end; 
لج حم[‎ 2 
SESSESSSSSTSSSTSSSSSSSSSSSESSSSSSSSESSSSSSSSSSSSSSSSSSSS SSS SSSSSSE SS SS 
function [r,it,p,pp]=newton (fun, dfun,x, acc) 
1t=0:x0=x; 
d=feval (fun, xÛ) /feval (dfun, x0); 
while abs(d)>acc 
xl=x0-d:1t=1tt+1;x0=x1; 
d=feval (fun, x0) /feval (dfun, x0); 
p(it)=xl;pp(it)=feval (fun, xl} ; 
end; 
ر ل حمر‎ 
9255-5 er EE E E E EEE Ak 
function [xv,it]-newton2(x,f,jf,n,acc) 
lit-0;xv-x;fr-feval(if,xv); 
while normí(fr)-»acc 
jr-fevalí(]f,xv); 
xvl-xv-jJrMfr;xv-xvl; 
fr-fteval(í(ft,xv); 
1t=it+1; 
end 
$52525*29522295259599522595295959529522252522222952522*25224292252*25222522232222522223225 
function[tvals,yvals]-*rkgen(f,start,finish,startval,h,method) 
$solves dy/dt-f(t,y). start, finish are initial, final values of t 
$startval is initial value of y,h is the increment in t 
emethod (1, 2 or 3) selects Classical, Butcher or Merson RK. 
b-[ ICS FFAS 13 
if method <1 | method <3 
disp('Method number unknown so using Classical'); 
method-1; 
end; 
if method-- 
orderz4á; 
b-[l/6 1/3 1/3 1/6]; de[O .5 .5 1 
cer) 0 0 00.5 0 D O20 ,5.0 OO Q 
disp('Classical method selected') 
elseif method == 
order=5; 
b=[1/6 0 0 2/3 1/6]; 
d=[0 1/3 1/3 L/2 IJ}; 
c-[0 Û 0 Û 0;1/3 0 0 0 0;1/6 1/6 0 0 0218 0 3/8 0 0O;l1/2 Q0 -3/2 2 
0]; 
disp('Merson method selected'); 
end; 
s-(finish-start)/h-*1; 
y-startval; t-start; 
yvals-startval; tvals-start; 
for j=2:8 
k(1)-h*feval(f,t,v);: 
for is2:order 
kti)lsh*revalir,tth*d(i),vtcoll,:i-1j)*kItl:i-l) ") 3 
end; 
Yl=ytb*k'; tl=tth; 
collect values together for output 
tvals-[tvals, tl]; yvals=[yvals, yl]; 
t-tl; y=yl; 
end; 
SESSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSE 
function [r,it]=secant (fun,a,b,acc) 
x1-b;xÜ-a:o-xlt1;it-0; 
while abs (xl-o)>acc 


j 
1 0l]; 


Yor got 


xÜ-o;o-xl;it-it-1l; 

xl=o-(feval (fun,o))* (x0-o0) / (feval (fun, o) -feval (fun, x0)); 
end; 
| a A 
$$25252522555222522255222522552225222222222222222222222222222222222 
% Simple Fourier Transform 
function G = sft(T,F,N); 
dt- T(2)-T(1):; 
n = length (N) م‎ 
for k =lin 

G(k)= dt*sum (F.*exp (-i*2*pi*N(k)*T)); 
end 
$5$2525955959559552555525555255525 5225 5 2$ 245 25 225522522252 95 
Function f-isftín,g,t); 
D-n(2)-ní(1); 
nt-length(í(t); 
for k-I:nt 
F(k)2D*sum(g.*exp(i*2*pi*n*t(k))); 


end 
$5 5585080000505 050000052000090020020002009090900000920990992002900990992999 
function q-simpsons (fun,a,b,n) 
h= {b-a} /n; 
x-[a:h:b]; y=feval (fun, x) ; 
2*ones(nt1,1):v222*ones(n/2,1); 
2:2:n)-7viZ:Z:n) v2; 
l)-1; vín-*1l)^1l; 
q-y*v; q-q*h/3; 
$595955$555$5 55555 S SS SSS SSS SSS SESS SSSSSSSSESSSSESSSSSSESSSSESESS 
Function tn=trapezoidal (fun,a,b,n) 
h- (b-a) /n; 
t-(feval(fun,a)-feval(fun,b))/2; 
for k-1:n-1 
x-a-th*k; 
t-t-feval(fun,x); 
end 
tnet*nhn; 
$5253 5$55 2525295252529 95225222225222225222929522222922222959*229295952952222922529*222* 
$ Lagrange Interpolation Method 
function fi = lin Ix;y,xi1); 


cou 


pia, 


a 


dxi = xi-x; m = length(x); zeros(size(y)): 
L(1) = prod (dxi(2:m))/prod(x(1)-xí2:m)); 
Lim) = prod (dxi(l1:m -1))/prodíx(m)-x(1:m -1)); 


Lor J] -= z:m —-i 

n= prod (dXxií(1:3]1 -1))*prod(dxiij-41:m)); 

d = prod (x(j)-x(1:j-1)) *prod(x(j)-x(j*1:m])); 

L(j} = n/d ; 

end; 

fi = sum (y.*L); 
ESSEEESSESSESEESESSESSSSSESESSSSSESESSE ESSER ESSE SSSESESSESRESESSESESESS SES 
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